p6.p6

use nqp;
Seq.^lookup("iterator").wrap: method (|) {
    say nqp::getattr(self, Seq, '$!iter').defined ?? 'Not consumed yet' !! 'Already consumed';
    say "touched in: ";
    for 3..20 { try say "\t -> {.name || <anon>} ({.file}:{.line})" with callframe($_).code }
    put();
    nextsame;
};

sub foo {
    my $s := <a b c>.map: *.uc;
    .print for $s;
    .print for $s;
}()