#define f(c,y,z,x);for j:=1to n do if#c=s[i][j]then begin k:=y;repeat k:=z+k;str(s[k],^`:9,s[k])until^`=s[k][x];s[k][x]:=#c;s[i][j]:=^`end var s:array[byte]of string;i,j,k,n:comp=3;begin repeat i:=i+1;readln(s[i]);n:=length(s[4])f(U,4,-1,j)f(R,i,,length(trim(s[i]))+1)f(D,n+3,1,j)until eof;for i:=9div n*4to 19do writeln(trim(s[i]))end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).