Untitled

#!/usr/bin/perl6
# your code goes here

use v6;

my @a = ^100;
my @b = ^100;

(for @a.race(batch => 10, degree => 4) -> $a {
	for @b.race(batch => 10, degree => 4) -> $b {
		say $a;
		say $b;
	}
});

say now - INIT now;
sleep 2;