sub alter(*@a) {
   gather for @a {
       my $name = is_name($_);
       take uc $name if $name;
   }
}