#include <fstream>
#include <cstring>
using namespace std;
ifstream fin("rj.in");
ofstream fout("rj.out");
int n, m, i, j, l, co, p, u, k, minim, a[102][102], b[102][102], lg;
char c[103];
short dl[]= {-1, -1, 0, 1, 1, 1, 0, -1}, dc[]= {0, 1, 1, 1, 0, -1, -1, -1};
struct coada
{
    int lin, col;
} q[100001], ju, r, x, y;
int main()
{
    fin>>n>>m;
    fin.getline(c, 100);
    for(i=0; i<n; i++)
    {
        fin.getline(c, 101);
        for(j=0; j<m; j++)
        {
            if(c[j]=='X')
            {
                a[i+1][j+1]=-1;
                b[i+1][j+1]=-1;
            }
            if(c[j]==' ')
            {
                b[i+1][j+1]=0;
                a[i+1][j+1]=0;
            }
            if(c[j]=='J')
            {
                ju.lin=i+1;
                ju.col=j+1;
            }
            if(c[j]=='R')
            {
                r.lin=i+1;
                r.col=j+1;
            }
        }
    }
    for(i=0; i<=n+1; i++)
    {
        a[i][0]=a[i][m+1]=-1;
        b[i][0]=b[i][m+1]=-1;
    }
    for(i=0; i<=m+1; i++)
    {
        a[0][i]=a[n+1][i]=-1;
        b[0][i]=b[n+1][i]=-1;
    }

    p=u=1;
    q[p]=ju;
    a[ju.lin][ju.col]=1;
    while(p<=u)
    {
        x=q[p];
        for(k=0; k<8; k++)
        {
            y.lin=x.lin+dl[k];
            y.col=x.col+dc[k];
            if(a[y.lin][y.col]==0)
            {
                a[y.lin][y.col]=a[x.lin][x.col]+1;
                u++;
                q[u]=y;
            }
        }
        p++;
    }
    p=u=1;
    q[1]=r;
    b[r.lin][r.col]=1;
    while(p<=u)
    {
        x=q[p];
        for(k=0; k<8; k++)
        {
            y.lin=x.lin+dl[k];
            y.col=x.col+dc[k];
            if(b[y.lin][y.col]==0)
            {
                b[y.lin][y.col]=b[x.lin][x.col]+1;
                u++;
                q[u]=y;
            }
        }
        p++;
    }
    minim=1000000;
    for(i=1; i<=n; i++)
    {
        for(j=1; j<=m; j++)
        {
            if(a[i][j]!=-1 && a[i][j]!=0)
                if(a[i][j]==b[i][j])
                {
                    if(minim>a[i][j])
                    {
                        minim=a[i][j];
                        l=i;
                        co=j;
                    }

                }
        }
    }
    fout<<minim<<" "<<l<<" "<<co;
    return 0;
}