Select Code to Download

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

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