serial-programming.p6

my @nths = 4000 + (1 .. 4);
my @primes = gather for @nths -> $n {
    take (1 .. *).grep(*.is-prime)[$n];
}
.say for @primes;