program romeo_si_julieta2004;
type matrice=array[0..102,0..102] of integer;
var  a,b:matrice;
     tmin:integer; i,j,n,m:integer;
     x:char;
     f,g:text;
begin
assign(f,'rj.in');reset(f);
assign(g,'rj.out');rewrite(g);
readln(f,n,m);
for i:=1 to n do
  for j:=1 to m do begin
                   read(f,x);
                   if x='X' then begin
                                 a[i,j]:=-1; b[i,j]:=-1;
                                 end
                      else if x=' ' then begin
                                         a[i,j]:=0; b[i,j]:=0;
                                         end
                              else if x='R' then a[i,j]:=1
                                      else if x='J' then b[i,j]:=1;
                   end;
for i:=1 to n do begin
  for j:=1 to m do write(g,a[i,j]:2);
  writeln(g);
end;
close(f); close(g);
end.