p6.p6

    my $matcher = *.so;
    say eager grep $matcher, gather with CORE:: -> $c {
        with &?BLOCK -> &dig {
            for $c.keys.grep(* ne 'IterationEnd') {
                say '--------------';
                .say;
                say $c{$_};
                take $c{$_};
                say "wtf";
                say '----***-----';
                try $c{$_}.WHO.keys and dig $c{$_};
                say '--------------';
            }
        }
    }