perl -e '$::=$::::=($::==$::);map{$::::*=++$::;$::-=$::**--$::::>>$::}(++$::..++$::::**$::*$::);$::::+=$::*$::*$::+$::*$::*$::;$::::.=$::*$::::*++$::;@::::::=reverse($::::=~m/74|72|65|80/g);print map{chr}@::::::;print"\n"'