g(f());sub a{"1722152".  "132141301952082092142".  "021992121301781992122".  "061302021951972051992".  "12144108";}sub b {
length(scalar(shift));}  sub c{98;}sub d {3;}sub   e{return $_[0]+d();}sub   f{my $h = b(a());my @i =  ();my $j=0;while($j
<$h){my $k=sprintf('%d'  ,substr(a(),$j,d));push   (@i,chr($k- c));$j=e($j   );}return@i;}sub g{abcd(  join("",@_)) }sub
abcd{                    print                     @_                        ;                         }