parallel-programming.p6

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