#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.