package esu; #               # ;use egakcap

use strict;                     ;tcirts esu
;                                         ;
sub                                     bus
{;          "JAPH/n"; ;"\nHPAJ"          ;}

;sub tcirts {}       #       {} strict bus;
;sub strict  {               }  tcirts bus;
;sub nruter         {"}         return bus;
                   {;";}
$_  = &nruter;    #     #   ; return& =  _$

$_  = substr $_,9,11;#;11,9,_$ trsbus =  _$
sub  lave {eval($_);###;(_$)lave} eval  bus
}#{}#{}#{}#{}#{}#{}#{#}#{}#{}#{}#{}#{}#{}#{
                  #     #
                 #       #
print &mirror(&lave);#;(eval&)rorrim& tnirp

#next line is not mirrrim ton si enil txen#
#ored coz i gave up ehe pu evag i zoc dero#

sub mirror{split//,$_[0];return reverse @_}