p6.p6

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

        sub dig ($stash) {
            for $stash.keys {
                try {.^methods} and take $_ given $stash{$_};
                next if %seen{ $_ }++;
                try { .keys } and .&dig given $stash{$_}.WHO;
            }
        }(CORE::{$_}.WHO) if try CORE::{$_}.WHO.keys;
    }
}