Parallel Programming

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