@a=split//,'73101';push@a,45;$c=ord('Z');foreach$b(@a){print chr($c-=$b);};