sub f{my$_=pop;/\pL/?-55+ord:$_}<>;printf sort{$a<=>$b}map{$x=0;($x*=1+f sort@@)+=f$_ for@@=/./g;$x}<>