my $iter = prime_iterator();
my $count = 0;
$count++ while $iter->() < 1000000;
print $count;