Simple test of concurrency.

ttest.p6

sub foo($a) {
    say "1> $a";
    return [~] $a.comb Z <a b c d e f g h i j k l m n o p q r s t u v w x y z>;
}

sub bar($a) {
    say "2> $a";
    say $a.uc;
}

say "0>BEGIN";
<baz quux thingy intersperesed asdf>.map: -> $F { start { bar(foo($F)) } };
say "0>END";