#include <iostream>
#include <fstream>
using namespace std;

ifstream fin("rj.in");
ofstream fout("rj.out");

int main() {
    int n, m;
    fin >> n >> m;
    char a[105][105];
    int dr[105][105], dj[105][105];
    int rx=0, ry=0, jx=0, jy=0;
    const int INF = 1000000000;
    int dx[8] = {-1,-1,-1,0,0,1,1,1};
    int dy[8] = {-1,0,1,-1,1,-1,0,1};

    // Citire corectă matrice, ignorăm spațiile și newline
    for (int i = 1; i <= n; i++) {
        for (int j = 1; j <= m; ) {
            char c;
            fin.get(c);
            if (c == ' ' || c == '\n' || c == '\r') continue;
            a[i][j] = c;
            if (c == 'R') { rx = i; ry = j; }
            if (c == 'J') { jx = i; jy = j; }
            j++;
        }
    }

    // Inițializare distanțe
    for (int i = 1; i <= n; i++)
        for (int j = 1; j <= m; j++)
            dr[i][j] = dj[i][j] = INF;

    // --- BFS Romeo ---
    int qx[10005], qy[10005];
    int st = 0, drq = 0;
    qx[drq] = rx; qy[drq] = ry; drq++;
    dr[rx][ry] = 0;

    while (st < drq) {
        int x = qx[st], y = qy[st]; st++;
        for (int d = 0; d < 8; d++) {
            int nx = x + dx[d], ny = y + dy[d];
            if (nx >= 1 && nx <= n && ny >= 1 && ny <= m && a[nx][ny] != 'X' && dr[nx][ny] == INF) {
                dr[nx][ny] = dr[x][y] + 1;
                qx[drq] = nx; qy[drq] = ny; drq++;
            }
        }
    }

    // --- BFS Julieta ---
    st = drq = 0;
    qx[drq] = jx; qy[drq] = jy; drq++;
    dj[jx][jy] = 0;

    while (st < drq) {
        int x = qx[st], y = qy[st]; st++;
        for (int d = 0; d < 8; d++) {
            int nx = x + dx[d], ny = y + dy[d];
            if (nx >= 1 && nx <= n && ny >= 1 && ny <= m && a[nx][ny] != 'X' && dj[nx][ny] == INF) {
                dj[nx][ny] = dj[x][y] + 1;
                qx[drq] = nx; qy[drq] = ny; drq++;
            }
        }
    }

    // --- Căutare celulă optimă ---
    int bestT=INF, bestX=-1, bestY=-1;
    for (int i = 1; i <= n; i++)
        for (int j = 1; j <= m; j++)
            if (dr[i][j] == dj[i][j] && dr[i][j] != INF)
                if (dr[i][j] < bestT ||
                   (dr[i][j] == bestT && (i < bestX || (i == bestX && j < bestY)))) {
                    bestT = dr[i][j];
                    bestX = i;   // nu scadem nimic
                    bestY = j;
                }

    fout << bestT << " " << bestX << " " << bestY;
    return 0;
}