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