reduce {$^a+$^b-$a%$b*2 } map { %rtoa{$_.uc} } $x.split('');