var a:array[1..5,1..5] of -1..300;
x,y:array[1..10000] of byte;
f:text; c:char;
tmin,aux,xs,ys,xi,xf,yi,yf,xc,yc,u,p,n,m:byte;
procedure citire;
var i,j:byte;
begin
assign(f,'rj.in');reset(f);
readln(f,n,m);
for i:=1 to n do
begin
    for j:=1 to m do
        begin
        read(f,c);
        if c='X' then a[i,j]:=-1
           else if c='R' then begin
                              xi:=i;
                              yi:=i;
                              end
                else if c='J' then begin
                                   xf:=i;
                                   yf:=j;
                                   end
                     else a[i,j]:=0;


    end;
    end;

x[1]:=xi;
y[1]:=yi;
close(f);
end;
procedure drum(xi,yi,xf,yf:byte);
begin
if (xi<>xf) and (yi<>yf) then
   begin
   if (xf-1>0) and (a[xf-1,yf]=a[xf,yf]-1) then
               begin
               inc(aux);
               drum(xi,yi,xf-1,yf);
               end
   else if (xf+1<=n) and (a[xf+1,yf]=a[xf,yf]-1) then
                     begin
                     inc(aux);
                     drum(xi,yi,xf+1,yf);
                     end
   else if (yf-1>0) and (a[xf,yf-1]=a[xf,yf]-1) then
                    begin
                    inc(aux);
                    drum(xi,yi,xf,yf-1);
                    end
   else if (yf+1<=m) and (a[xf,yf+1]=a[xf,yf]-1) then
                     begin
                     inc(aux);
                     drum(xi,yi,xf,yf+1);
                     end;
   if aux=tmin then begin
                    xs:=xf;
                    ys:=yf;
                    exit;
                    end;
   end;
end;
procedure lee;
begin
p:=1; u:=1;
while p<=u do
      begin
      xc:=x[p]; yc:=y[p];
      if (xc-1>0) and (a[xc-1,yc]=0) then
                      begin
                      inc(u);
                      x[u]:=xc-1;
                      y[u]:=yc;
                      a[xc-1,yc]:=a[xc,yc]+1;
                      end;
      if (xc+1<=n) and (a[xc+1,yc]=0) then
                       begin
                       inc(u);
                       x[u]:=xc+1;
                       y[u]:=yc;
                       a[xc+1,yc]:=a[xc,yc]+1;
                       end;
      if (yc-1>0) and (a[xc,yc-1]=0) then
                      begin
                      inc(u);
                      x[u]:=xc;
                      y[u]:=yc-1;
                      a[xc,yc-1]:=a[xc,yc]+1;
                      end;
      if (yc+1<=m) and (a[xc,yc+1]=0) then
                       begin
                       inc(u);
                       x[u]:=xc;
                       y[u]:=yc+1;
                       a[xc,yc+1]:=a[xc,yc];
                       end;
      inc(p);
      end;
end;
procedure afisare;
begin
assign(f,'rj.out');rewrite(f);
writeln(f,tmin,xs,ys);
close(f);
end;
begin
citire;
lee;
tmin:=(a[xf,yf]-a[xi,yi]) div 2;
aux:=0;
drum(xi,yi,xf,yf);
afisare;
end.