pugs> sub foo { [~] map -> $a, $b { lc $a, uc $b }, @_ };
pugs> say foo <FoO bAr BaZ>;
fooBARbaz