for (mop::meta('APW')) { $_->add_method( mop::method->new( name => $", body => sub { map { say+join($",$_[0]->$_($_[1])) } reverse $_[0]->$;($_[1]) } )); $;=q^########^^q atLQHPKLSa; $_->FINALIZE->new_instance->$"($_) };