sub alter(*@a) {
   gather for @a.map({ is_name($_)}) {
       take .uc if $_;
   }
}