gistfile1.none

pmichaud@kiwi:~/p6/nom$ cat y
sub foo($x) {
    my $tail = [];
    my sub generate() {
        nqp::say($tail.DUMP);
        1;
    }

    GATHER({ 
        take $x;
        push $tail, $x;
        generate();
        take $x * 2;
    }).list;
}

say foo(1);
say '-----';
say foo(1), foo(3);
pmichaud@kiwi:~/p6/nom$ ./perl6 y
Array<200970432>(:items(RPA<200232048>(▶1)), :nextiter(▶Mu))
1 2
-----
Array<198032336>(:items(▶Mu), :nextiter(ListIter<198032296>(:reified(▶Mu), :rest(RPA<198032376>(Parcel<198032576>(:storage(RPA<198032656>())))), :list(Array<198032336>))))
1 2Array<198032336>(:items(RPA<196399632>(▶3)), :nextiter(▶Mu))
3 6
pmichaud@kiwi:~/p6/nom$