//interactive
ll@N,@M,x=0,y=0,R=1,S=1,c=0,b=1,q=0,T[2]{0,N-1};char@A[N][N];vector<string>a(1d5);REP(2N*N){if(A[y][x]>'.'&&b){b=0;while(c<2N*N)a[q++]="2 1",c++;}if(c)a[q++]="3 1";if(x==T[R]){R=!R;if(y==T[S]){S=!S;}(a[q++]="1 ")+=S?"D":"U";y+=2S-1;}else (a[q++]="1 ")+=R?"R":"L",x+=2R-1;}wtLn(q,a(q));