@a=split//,"Z~R_'QVj!^VL_.E]`OVj-]`O^AaZj>]LH]`OWx";map{$_=(ord$_)-oct 36;
unless($_>oct 11){$_-=3;$_="0$_"};$b.=$_}@a;$b=scalar reverse$b;while($b){
$y=chop$b;$y.=chop$b;$y.=chop$b;push@t,$y}map{print chr($_- hex hex d9)}@t