Problem:
Problem D: Cliff Climbing

At 17:00, special agent Jack starts to escape from the enemy camp.
There is a cliff in between the camp and the nearest safety zone.
Jack has to climb the almost vertical cliff
by stepping his feet on the blocks that cover the cliff.
The cliff has slippery blocks where Jack has to
spend time to take each step.
He also has to bypass some blocks that are too loose to support his weight.
Your mission is to write a program that calculates the minimum time to complete climbing.

Figure D-1 shows an example of cliff data that you will
receive.
The cliff is covered with square blocks.
Jack starts cliff climbing from the ground under the cliff,
by stepping his left or right foot on one of the blocks marked with
'S' at the bottom row.
The numbers on the blocks are the "slippery levels". It takes
t time units for him to safely put his foot on a
block marked with t, where 1 ≤ t ≤ 9.
He cannot put his feet on blocks marked with 'X'.
He completes the climbing when he puts
either of his feet on one of the blocks marked with 'T' at the top row.

Figure D-1: Example of Cliff Data

Jack's movement must meet the following constraints.
After putting his left (or right) foot on a block, he can only move
his right (or left, respectively) foot.
His left foot position (lx, ly) and his right foot position
(rx, ry) should satisfy
lx < rx
and | lx - rx | + | ly - ry | ≤ 3
.
This implies that, given a position of his left foot in Figure D-2 (a), he has to
place his right foot on one of the nine blocks marked with blue color.
Similarly, given a position of his right foot in Figure D-2 (b),
he has to place his
left foot on one of the nine blocks marked with blue color.

Figure D-2: Possible Placements of Feet

Input

The input is a sequence of datasets.
The end of the input is indicated by a line containing two zeros separated by a space.
Each dataset is formatted as follows:

w h

s(1,1) ... s(1,w)

s(2,1) ... s(2,w)

...

s(h,1) ... s(h,w)

The integers w and h are the width and the height of
the matrix data of the cliff. You may assume 2 ≤ w ≤ 30 and 5 ≤ h ≤ 60.
Each of the following h lines consists of w characters
delimited by a space.
The character s(y, x) represents the state of the block at
position
(x, y) as follows:

'S': Jack can start cliff climbing from this block.

'T': Jack finishes climbing when he reaches this block.

'X': Jack cannot put his feet on this block.

'1' - '9' (= t): Jack has to spend t time units
to put either of his feet on this block.

You can assume that it takes no time to put a foot on a block marked with 'S' or 'T'.

Output

For each dataset, print a line only having a decimal integer indicating
the minimum time required for the cliff climbing,
when Jack can complete it.
Otherwise, print a line only having "-1" for the dataset.
Each line should not have any characters other than these numbers.

Sample Input

6 6
4 4 X X T T
4 7 8 2 X 7
3 X X X 1 8
1 2 X X X 6
1 1 2 4 4 7
S S 2 3 X X
2 10
T 1
1 X
1 X
1 X
1 1
1 X
1 X
1 1
1 X
S S
2 10
T X
1 X
1 X
1 X
1 1
1 X
1 X
1 1
1 X
S S
10 10
T T T T T T T T T T
X 2 X X X X X 3 4 X
9 8 9 X X X 2 9 X 9
7 7 X 7 3 X X 8 9 X
8 9 9 9 6 3 X 5 X 5
8 9 9 9 6 X X 5 X 5
8 6 5 4 6 8 X 5 X 5
8 9 3 9 6 8 X 5 X 5
8 3 9 9 6 X X X 5 X
S S S S S S S S S S
10 7
2 3 2 3 2 3 2 3 T T
1 2 3 2 3 2 3 2 3 2
3 2 3 2 3 2 3 2 3 4
3 2 3 2 3 2 3 2 3 5
3 2 3 1 3 2 3 2 3 5
2 2 3 2 4 2 3 2 3 5
S S 2 3 2 1 2 3 2 3
0 0

Output for the Sample Input

12
5
-1
22
12

Solution in C++14 (judge verdict: Memory Limit Exceeded)

#include "bits/stdc++.h"
using namespace std;
#ifdef _DEBUG
#include "dump.hpp"
#else
#define dump(...)
#endif

//#define int long long
#define rep(i,a,b) for(int i=(a);i<(b);i++)
#define rrep(i,a,b) for(int i=(b)-1;i>=(a);i--)
#define all(c) begin(c),end(c)
const int INF = sizeof(int) == sizeof(long long) ? 0x3f3f3f3f3f3f3f3fLL : 0x3f3f3f3f;
const int MOD = (int)(1e9) + 7;
template<class T> bool chmax(T &a, const T &b) { if (a < b) { a = b; return true; } return false; }
template<class T> bool chmin(T &a, const T &b) { if (b < a) { a = b; return true; } return false; }

using Weight = int;
using Flow = int;
struct Edge {
	int s, d; Weight w; Flow c;
	Edge() {};
	Edge(int s, int d, Weight w = 1) : s(s), d(d), w(w), c(w) {};
};
bool operator<(const Edge &e1, const Edge &e2) { return e1.w < e2.w; }
bool operator>(const Edge &e1, const Edge &e2) { return e2 < e1; }
inline ostream &operator<<(ostream &os, const Edge &e) { return (os << '(' << e.s << ", " << e.d << ", " << e.w << ')'); }

using Edges = vector<Edge>;
using Graph = vector<Edges>;
using Array = vector<Weight>;
using Matrix = vector<Array>;

void addArc(Graph &g, int s, int d, Weight w = 1) {
	g[s].emplace_back(s, d, w);
}
void addEdge(Graph &g, int a, int b, Weight w = 1) {
	addArc(g, a, b, w);
	addArc(g, b, a, w);
}

vector<int> dijkstra(const Graph &g, int s, Array &dist) {
	int n = g.size();
	assert(s < n);
	enum { WHITE, GRAY, BLACK };
	vector<int> color(n, WHITE); color[s] = GRAY;
	vector<int> prev(n, -1);
	dist.assign(n, INF); dist[s] = 0;
	using State = tuple<Weight, int, int>;
	priority_queue<State, vector<State>, greater<State>> pq; pq.emplace(0, s, -1);
	while (pq.size()) {
		Weight d; int v, u; tie(d, v, u) = pq.top(); pq.pop();
		if (dist[v] < d)continue;
		color[v] = BLACK; prev[v] = u;
		for (auto &e : g[v]) {
			if (color[e.d] == BLACK)continue;
			if (dist[e.d] > dist[v] + e.w) {
				dist[e.d] = dist[v] + e.w;
				pq.emplace(dist[e.d], e.d, v);
				color[e.d] = GRAY;
			}
		}
	}
	return prev;
}


signed main() {
	cin.tie(0);
	ios::sync_with_stdio(false);
	for (int w, h; cin >> w >> h &&h;) {
		vector<vector<char>> c(h, vector<char>(w));
		rep(i, 0, h)rep(j, 0, w)
			cin >> c[i][j];
		auto inrange = [&](int i, int j) { return i >= 0 && i < h && j >= 0 && j < w; };
		auto valid = [&](int li, int lj, int ri, int rj) {return abs(li - ri) + abs(lj - rj) <= 3 && lj < rj; };
		auto index = [&](int li, int lj, int ri, int rj, int right) {
			int ret = li;
			ret *= w;
			ret += lj;
			ret *= h;
			ret += ri;
			ret *= w;
			ret += rj;
			ret += (w*h*w*h)*right;
			return ret;
		};
		// next right 1
		Graph g(h*w*h*w * 2 + 2);
		int s = h*w*h*w * 2, t = s + 1;
		rep(li, 0, h)rep(lj, 0, w)rep(ri, 0, h)rep(rj, lj + 1, w) {
			if (!valid(li, lj, ri, rj))continue;
			//dump(li, lj, ri, rj);
			if (c[li][lj] == 'X' || c[ri][rj] == 'X')continue;
			if (c[li][lj] == 'S') {
				addArc(g, s, index(li, lj, ri, rj, 0), c[ri][rj] == 'S' ? 0 : c[ri][rj] - '0');
			}
			if (c[ri][rj] == 'S') {
				addArc(g, s, index(li, lj, ri, rj, 1), c[li][lj] == 'S' ? 0 : c[li][lj] - '0');
			}
			if (c[li][lj] == 'T') {
				addArc(g, index(li, lj, ri, rj, 1), t, 0);
			}
			if (c[ri][rj] == 'T') {
				addArc(g, index(li, lj, ri, rj, 0), t, 0);
			}
			rep(r, 0, 2) {
				int u = index(li, lj, ri, rj, r);
				rep(di, -10, 10)rep(dj, -10, 10) {
					int nli = li, nlj = lj, nri = ri, nrj = rj;
					int cost;
					if (r) {
						nri += di;
						nrj += dj;
						if (!inrange(nri, nrj))continue;
						if (c[nri][nrj] == 'X')continue;
						cost = c[nri][nrj] == 'T' ? 0 : c[nri][nrj] - '0';
					}
					else {
						nli += di;
						nlj += dj;
						if (!inrange(nli, nlj))continue;
						if (c[nli][nlj] == 'X')continue;
						cost = c[nli][nlj] == 'T' ? 0 : c[nli][nlj] - '0';
					}
					if (!valid(nli, nlj, nri, nrj))continue;
					//dump(nli, nlj, nri, nrj);
					int v = index(nli, nlj, nri, nrj, !r);
					addArc(g, u, v, cost);
				}
			}
		}
		int ans = INF;
		Array dist;
		dijkstra(g, s, dist);
		chmin(ans, dist[t]);
		cout << (ans == INF ? -1 : ans) << endl;
	}
	return 0;
}