print$",join$",@a=split//,"STKPWHRAO*EUFRPBLGTSDZ$/";$_="Uf VWYABV^PZ A`"
;s#.#print$",((vec pack(v,($t=ord$&)-($t>85?86:0)),$_,1)?$a[$c+$_]:$")for
0..6;$c=$c-14?$c+7:!print map{s/./chr(ord($&)+32)/eg;"  -$_$/"}@z=qw{*53
!. /62 052, (!+2}[$d++]#eg