Help for this page
my $bits :shared = chr(0); $bits x= $N/ 8 + 1; my $t = async{ ... vec( $bits, $_, 1 ) = 1; } };
D'ok 1 - got 1 from queue D'ok 2 - got 2 from queue ... D'ok 99998 - got 99998 from queue D'ok 99999 - got 99999 from queue D'ok 100000 - got 100000 from queue