open s,">#\!/usr/bin/python";/seek s,"m/^j.a.p.h.!$/";print s"#\!/usr/bin/perl",+0;$_=(<0>)[-1];$/=q*(\w)*; s/^[^']*(.*)\).*/$1/;s/'(,')*/&/g;$_=join'',split/&/;*#=*_;$# =~s*^\$(.+)\$$*$1*;print ~~ reverse join ' ', map{;;s$\$/\$/$\$2\$1$g&&$#;}split(' ',$#);$/=q*()*;@#=('$ ,erc','kha ','rlPe',' ert','hnoa',' stJu $',);