gistfile1.txt

class LinesIter is Iterator {
    has $!filehandle;
    has $!value;
    
    method new($fh) { 
        my $result = self.CREATE; 
        pir::setattribute__vPsP($result, '$!filehandle', $fh); 
        $result; 
    }
    
    method infinite() { False }
    
    method reify() {
        unless $!value.defined {
            $!value := pir::new('Parcel');
            my $line = $!filehandle.get;
            if $line.defined {
                pir::push($!value, $line);
                $line = $!filehandle.get;
                if $line.defined {
                    pir::push($!value, $line);
                    $line = $!filehandle.get;
                    if $line.defined {
                        pir::push($!value, $line);
                        pir::push($!value, LinesIter.new($!filehandle));
                    }
                }
            }
        }
        $!value;
    }
}

my $count = 0;
for LinesIter.new($*IN).list {
    $count++;
}

say :$count.perl;