#include<stdio.h>
int y[150][150],z[150][150],m,n,p[10000],q[10000],c,d,i,j,u,v,o,r,k,l,t=10000,a[]={-1,-1,-1,1,1,1,0,0},b[]={0,1,-1,0,1,-1,1,-1};
char s[150];
void H(int x[][150],int i,int j) {
    for(int k=0;k<8;k++)
    if(!x[i+a[k]][j+b[k]])
        x[i+a[k]][j+b[k]]=x[i][j]+1,p[d]=i+a[k],q[d++]=j+b[k];
}
int main() {
    freopen("rj.in","r",stdin),freopen("rj.out","w",stdout),scanf("%d%d\n",&m,&n);
    for(i=1;i<=m;i++) {
        fgets(s,150,stdin);
        for(j=1;j<=n;j++)
        if(s[j-1]=='X')
            y[i][j]=z[i][j]=10000;
        else if(s[j-1]=='R')
            u=i,v=j,y[i][j]=1;
        else if(s[j-1]=='J')
            o=i,r=j,z[i][j]=1;
    }
    for(i=0;i<=m+1;i++)
        y[i][0]=y[i][n+1]=z[i][0]=z[i][n+1]=10000;
    for(j=0;j<=n+1;j++)
        y[0][j]=y[m+1][j]=z[0][j]=z[m+1][j]=10000;
    for(p[d]=u,q[d++]=v;c<d;i=p[c],j=q[c++],H(y,i,j));
    for(c=d=0,p[d]=o,q[d++]=r;c<d;i=p[c],j=q[c++],H(z,i,j));
    for(i=1;i<=m;i++)
    for(j=1;j<=n;j++)
    if(y[i][j]==z[i][j]&&y[i][j]&&z[i][j]<t)
        t=z[i][j],k=i,l=j;
    printf("%d %d %d",t,k,l);
}