p6.p6

my $matcher = { !.DEFINITE and try .can('say') };
.say for sort map *.^name, eager grep $matcher,
    gather for CORE::.keys.grep(* ne 'IterationEnd') {
        try {.^methods} and take $_ given CORE::{$_};

        sub dig ($stash, $level = 0) {
            for $stash.keys {
                try {.^methods} and take $_ given $stash{$_};
                $level < 1 and .keys and .&dig($level+1)
                    given $stash{$_}.WHO;
            }
        }(CORE::{$_}.WHO) if try CORE::{$_}.WHO.keys;
    }