naive-feed-operator.p6

use v6;

my &channelify =
%*ENV<RAKUDO_MAX_THREADS>:!exists || %*ENV<RAKUDO_MAX_THREADS>.Int <= 1
?? -> \c { c }
!! -> \list, $channel = Channel.new {
    start {
        for list {
            $channel.send($_)
        }
        LEAVE $channel.close unless $channel.closed;
    }
    $channel.list but role :: { method channel { $channel } }
};

my \l1 = gather for 1..100000 { take (1..1000).roll };

multi sub postfix:«⇒»(Positional:D \ll){
    channelify ll
}

.say for (l1⇒ .grep({ .is-prime }))⇒ .sort;