#define I(C,Q);for l:=1to length(s)-1do inc(C[Q],ord(s[l]=#C))
#define W(C)begin for j:=l downto 0do if C[j]>i then break;if j>0then for k:=1to j do write((^`+#C)[ord(C[k]>i)+1],^j:k div j)end;
var R,U,D:array[byte]of word;s,t:string;i,j,k,l:comp;begin
repeat
t:=t+"R";inc(j);readln(s)I(U,l)I(D,l)I(R,j)until
eof;for i:=3downto 0do W(U)write(s);for i:=2to l do write("
#","#":l,t:R[i]);writeln(^j,s);for i:=0to 3do W(D)end.