p6.p6

my @l;
react {
    my $p := Proc::Async.new: $*EXECUTABLE, '-e', ｢
        for ^100000 { 42.note; 100.say }
    ｣;
    whenever $p.stdout.lines {
        sleep 2 unless $++; say "$_ $*THREAD.id()"; @l.push: $_
    }
    whenever $p.stderr.lines {
        say "$_ $*THREAD.id()"; @l.push: $_
    }
    whenever $p.start {}
}
say @l;