use strict;
$/=q;rle Pa nwdo nyko uu'orye  ,tsoioh tc ldoaseer  tnoa cm yu ocya rf.I;;
for(0..34){$"=$_*-1;$,.=substr($/,$",1,'')}$"=substr($,,0,1,'');$,.=$";print qq}$,$/};