//Nguyen Huu Hoang Minh
//THTIME problem
/*
Sol: sử dụng thuật toán dijkstra, nếu đi qua các đỉnh kề bên trong cùng thời gian thì độ dài cạnh là 0, nếu đi qua đỉnh hiện tại ở thời gian khác thì độ dài cạnh là 1, kết quả là d[x][y][0] với x, y là tọa độ đỉnh kết thúc và 0 là trạng thái ở hiện tại
*/
#include <bits/stdc++.h>
#define sz(x) int(x.size())
#define all(x) x.begin(),x.end()
#define reset(x) memset(x, 0,sizeof(x))
#define pb push_back
#define mp make_pair
#define fi first
#define se second
#define N 2005
#define remain(x) if (x > MOD) x -= MOD
#define ii pair<int, int>
#define iiii pair< ii , ii >
#define viiii vector< iiii >
#define vi vector<int>
#define vii vector< ii >
#define bit(x, i) (((x) >> (i)) & 1)
#define Task "test"
#define int long long

using namespace std;

typedef long double ld;
const int inf = 1e10;

int n,m;
char pre[N][N], pas[N][N];
int stx,sty,enx,eny;
int d[N][N][2];
int dx[4] = {0,0,1,-1};
int dy[4] = {1,-1,0,0};

void readfile()
{
    ios_base::sync_with_stdio(false);
    cin.tie(0);cout.tie(0);
    if (fopen(Task".inp","r"))
    {
        freopen(Task".inp","r",stdin);
        //freopen(Task".out","w",stdout);
    }
    cin >> n >> m;
    for(int i=1; i<=n; i++)
    {
        for(int j=1; j<=m; j++){
            cin >> pre[i][j];
            if (pre[i][j] == 'S') stx = i, sty = j;
            if (pre[i][j] == 'T') enx = i, eny = j;
        }
    }
    for(int i=1; i<=n; i++)
        for(int j=1; j<=m; j++) cin >> pas[i][j];
}

void dijkstra()
{
    priority_queue<iiii, viiii, greater<iiii>> q;
    for(int i=1; i<=n; i++) for(int j=1; j<=m; j++) d[i][j][0] = d[i][j][1] = inf;
    d[stx][sty][0] = 0;
    q.push(iiii(ii(0,0),ii(stx,sty)));
    while (q.size())
    {
        int u = q.top().se.fi;
        int v = q.top().se.se;
        int mask = q.top().fi.se;
        int du = q.top().fi.fi;
        q.pop();
        if (d[u][v][mask] != du) continue;
        bool travel = false;
        if (mask==0) if (pas[u][v]=='.' || pas[u][v]=='T') travel=true;
        if (mask==1) if (pre[u][v]=='.' || pre[u][v]=='T') travel=true;
        for(int i=0; i<4; i++)
        {
            int x = u + dx[i];
            int y = v + dy[i];
            if (x < 1 || x > n || y < 1 || y > m) continue;
            bool can_go=false;
            if (mask==0) if (pre[x][y]=='.' || pre[x][y]=='T') can_go = true;
            if (mask==1) if (pas[x][y]=='.' || pas[x][y]=='T') can_go = true;
            if (d[x][y][mask] > d[u][v][mask] && can_go){
                d[x][y][mask] = d[u][v][mask];
                q.push(iiii(ii(d[x][y][mask],mask),ii(x,y)));
            }
            if (d[u][v][1-mask] > d[u][v][mask]+1 && travel)
            {
                d[u][v][1-mask] = d[u][v][mask] + 1;
                q.push(iiii(ii(d[u][v][1-mask],1-mask),ii(u,v)));
            }
        }
    }
}

void proc()
{
    dijkstra();
        /*
    for(int i=1; i<=n; i++)
        for(int j=1; j<=m; j++) cout << d[i][j][0] << " \n"[j==m];
    for(int i=1; i<=n; i++)
        for(int j=1; j<=m; j++) cout << d[i][j][1] << " \n"[j==m];
        */
    cout << d[enx][eny][0];
}

signed main()
{
    readfile();
    proc();
    return 0;
}