#!/usr/bin/perl
@_=unpack("C*",'0:&+t9Wb/tbqvjbu?ut8M8bu');for(
@_){if(substr($_,-3)>substr($_,-2)){
@_;if(substr($_,-2)>substr($_,2)&&
@_){$_-=90;}else{$_=sprintf('%02d',substr($_,2),
@_);}}}
@_=split'',(join'',
@_);unshift
@_,pop
@_;$_=join'',
@_;while(s/^(\d{2})//&&
@_){print chr($1);}