f=(gets[0,1]=='e')\x0d gets(p)\x0d w=[]\x0d d=$_.chomp\x0d if f\x0d w<<d[-1,1]\x0d d[-1,1]=""\x0d while(d.size>0)\x0d w.unshift(d[-2,1])\x0d w<<d[-1,1]\x0d d[-2,2]=""\x0d end\x0d else\x0d w<<d[0,1]\x0d d[0,1]=""\x0d while(d.size>0)\x0d w<<d[-1,1]\x0d w<<d[0,1]\x0d d[-1,1]=""\x0d d[0,1]=""\x0d end\x0d end\x0d puts w.join
Note that non-ascii characters in the above source code will be escaped (such as \x9f).