threaded-proc-async.raku

use v6;

my @list = 1..10;
my @results;
loop {
    @results = @list[^24].hyper(:degree(2), :batch(1)).map({ my $type = run('/bin/ls', :out).out.slurp.chars; $_ but role Mime { has $.mime = $type } });
    dd @results[0].mime;
    last if now > 5 + BEGIN now;
}