#define F(x,y,z);for i:=1to l do write(s[x]:y,s[x]:z,s[x]:z,^j:y); var s:string;i,l:word;begin read(s);l:=length(s)div 2;F(i,i,l-i+1)writeln(s)F(l+i+1,l-i+1,i)end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).