Problem: Let us remind you the rules of a very popular game called "Snake" (or sometimes "Boa", "Python" or "Worm").

The game field is represented by an n × m rectangular table. Some squares of the field are considered impassable (walls), all other squares of the fields are passable.

You control a snake, the snake consists of segments. Each segment takes up exactly one passable square of the field, but any passable square contains at most one segment. All segments are indexed by integers from 1 to k, where k is the snake's length. The 1-th segment is the head and the k-th segment is the tail. For any i (1 ≤ i < k), segments with indexes i and i + 1 are located in the adjacent squares of the field, that is, these squares share a common side.

One of the passable field squares contains an apple. The snake's aim is to reach the apple and eat it (that is, to position its head in the square with the apple).

The snake moves throughout the game. During one move the snake can move its head to an adjacent field square. All other segments follow the head. That is, each segment number i (1 < i ≤ k) moves to the square that has just had segment number i - 1. Consider that all segments including the head move simultaneously (see the second test sample). If the snake's head moves to an unpassable square or to the square, occupied by its other segment, the snake dies. That's why we will consider such moves unvalid.

Your task is to determine the minimum number of valid moves that the snake needs to reach the apple.

Input

The first line contains two space-separated integers n and m (1 ≤ n, m ≤ 15) — the number of rows and columns of the game field.

Next n lines describe the game field. Each of these lines contains m characters. Character "#" represents a wall, "." is a passable square, "@" is an apple. The snake's first segment is represented by character "1", the second one segment — by character "2" and so on.

The game field description doesn't contain any characters besides "#', ".", "@" and digits (except 0). It is guaranteed that the described field is correct. It is guaranteed that the described field contains exactly one apple and exactly one snake, the snake's length is at least 3 and at most 9.

Output

Print a single integer to the output — the minimum number of moves needed to reach the apple. If the snake can't reach the apple, print -1.

Examples

Input

4 5
##...
..1#@
432#.
...#.


Output

4


Input

4 4
#78#
.612
.543
..@.


Output

6


Input

3 2
3@
2#
1#


Output

-1

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
namespace IO {
const int MAXIOSIZE = 1 << 24 | 1;
unsigned char buf[MAXIOSIZE], *p1, *p2;
template <typename T>
void read(T& x) {
  x = 0;
  char ch = getchar();
  bool flg = false;
  for (; ch < '0' || '9' < ch; ch = getchar())
    if (ch == '-') flg |= true;
  for (; '0' <= ch && ch <= '9'; ch = getchar()) x = x * 10 + ch - '0';
  flg ? x = -x : 0;
}
template <typename T>
void out(const T& x) {
  if (x > 9) out(x / 10);
  putchar(x % 10 + '0');
}
template <typename T>
inline void write(const T& x, const char& ed = ' ') {
  if (x < 0)
    putchar('-'), out(-x);
  else
    out(x);
  putchar(ed);
}
}  // namespace IO
const int MAXN = 15 + 10;
const int MAXLEN = 9 + 10;
const int MAXSTATUS = (1 << 16) + 10;
const int dx[] = {0, 0, 1, -1}, dy[] = {1, -1, 0, 0};
int pow4[MAXLEN], tag[MAXSTATUS], H, W, len;
int dis[15 * 15 + 10][MAXSTATUS];
char mp[MAXN][MAXN];
struct MySet {
  int data;
  MySet(int x) { data = x; }
  MySet() {}
  int operator[](const int& x) { return (data / pow4[x]) % 4; }
  void modify(const int& x, const int& val) {
    data =
        (data % pow4[x]) + val * pow4[x] + (data / pow4[x + 1] * pow4[x + 1]);
  }
  MySet operator<<(const int& x) {
    return MySet(1ll * data * pow4[x] % pow4[len - 1]);
  }
} S;
int num(int x, int y) { return x * W + y; }
void mun(int val, int& x, int& y) { x = val / W, y = val % W; }
bool chk(MySet dir) {
  int idx = 0;
  set<int> res;
  int cx = 0, cy = 0;
  while (1) {
    if (res.count(num(cx, cy))) return true;
    res.insert(num(cx, cy));
    cx += dx[dir[idx]], cy += dy[dir[idx]];
    if (idx == len - 1) return false;
    idx++;
  }
}
bool chkmin(int& a, int b) { return a > b ? a = b, true : false; }
int main() {
  pow4[0] = 1;
  for (int i = (1), iend = (12); i < iend; ++i) pow4[i] = pow4[i - 1] * 4;
  IO::read(H), IO::read(W);
  int sx, sy, tsx, tsy, ex, ey;
  for (int i = (0), iend = (H); i < iend; ++i) {
    scanf("%s", mp[i]);
    for (int j = (0), jend = (W); j < jend; ++j) {
      if (isdigit(mp[i][j])) len = max(len, mp[i][j] - '0');
      if (mp[i][j] == '1') sx = i, sy = j;
      if (mp[i][j] == '@') ex = i, ey = j;
    }
  }
  tsx = sx, tsy = sy;
  int cur_len = 0;
  while (cur_len < len - 1) {
    int cx, cy;
    for (int i = (0), iend = (4); i < iend; ++i) {
      cx = sx + dx[i], cy = sy + dy[i];
      if (!(cx < 0 || cy < 0 || cx >= H || cy >= W) &&
          mp[cx][cy] == cur_len + '2') {
        S.modify(cur_len++, i), sx = cx, sy = cy;
        break;
      }
    }
  }
  for (int i = (0), iend = (MAXSTATUS); i < iend; ++i) tag[i] = chk(MySet(i));
  for (int i = (0), iend = (15 * 15 + 10); i < iend; ++i)
    for (int j = (0), jend = (MAXSTATUS); j < jend; ++j) dis[i][j] = INT_MAX;
  queue<pair<int, MySet> > q;
  q.push(make_pair(num(tsx, tsy), S));
  dis[num(tsx, tsy)][S.data] = 0;
  int ans = INT_MAX;
  while (!q.empty()) {
    pair<int, MySet> u = q.front();
    q.pop();
    if (u.first == num(ex, ey)) {
      ans = dis[u.first][u.second.data];
      break;
    }
    MySet v = u.second << 1;
    int ux, uy;
    mun(u.first, ux, uy);
    for (int i = (0), iend = (4); i < iend; ++i) {
      int nx = ux - dx[i], ny = uy - dy[i];
      v.modify(0, i);
      if (nx < 0 || ny < 0 || nx >= H || ny >= W || mp[nx][ny] == '#' ||
          tag[v.data])
        continue;
      if (chkmin(dis[num(nx, ny)][v.data], dis[u.first][u.second.data] + 1)) {
        q.push(make_pair(num(nx, ny), v));
      }
    }
  }
  if (ans == INT_MAX) return puts("-1"), 0;
  IO::write(ans);
  return 0;
}