gistfile1.txt

my int $running = 1;

await (^8).map: {
    start {
        my int $i;
        say "starting $*THREAD.id()";
        while $running {
            ++$i;
            if rand < 0.0000001 {
                say "finished by $*THREAD.id() in $i";
                $running = 0;
            }
        }
        say "done $*THREAD.id() after $i";
    }
}

sleep 5;