Por que nenhum método "cada" nas sequências Perl6?

Às vezes, começarei a escrever uma cadeia de chamadas de método no Perl 6 REPL, como:

".".IO.dir.grep(...).map(...).

... e então percebo que o que quero fazer com a lista final é imprimir todos os elementos em sua própria linha. Eu esperaria que as sequências tivessem algo como um eachmétodo para que eu pudesse terminar a cadeia .each(*.say), mas não há nenhum método como esse que eu possa encontrar. Em vez disso, tenho que voltar ao início da linha e preceder .say for. Parece que interrompe o fluxo dos meus pensamentos.

É um pequeno aborrecimento, mas me parece uma omissão tão flagrante que me pergunto se estou perdendo alguma alternativa fácil. Os únicos em que consigo pensar são ».saye .join("\n").say, mas o primeiro pode operar com elementos fora de ordem (se bem entendi) e o segundo constrói uma única sequência que pode ser problemáticamente grande, dependendo da lista de entrada.

Como você escreveu no comentário, apenas um outro .map(*.say)também cria uma linha com valores True ao usar o REPL. Você pode tentar chamar o .sinkmétodo após a última instrução do mapa.

".".IO.dir.grep({$_.contains('e')}).map(*.uc).map(*.say).sink

Você pode rolar sozinho.

use MONKEY;

augment class Any 
{ 
    method each( &block )
    {
        for self -> $value { 
            &block( $value );
        }
    }
};

List.^compose;
Seq.^compose;

(1, 2).each({ .say });
(2, 3).map(* + 1).each({ .say });

# 1
# 2
# 3
# 4

Se você gosta disso, aqui está a sua primeira oportunidade de módulo CPAN .