On Planet MM-21, after their Olympic games this year, curling is getting popular. But the rules are somewhat different from ours. The game is played on an ice game board on which a square mesh is marked. They use only a single stone. The purpose of the game is to lead the stone from the start to the goal with the minimum number of moves.

Fig. D-1 shows an example of a game board. Some squares may be occupied with blocks. There are two special squares namely the start and the goal, which are not occupied with blocks. (These two squares are distinct.) Once the stone begins to move, it will proceed until it hits a block. In order to bring the stone to the goal, you may have to stop the stone by hitting it against a block, and throw again.

<image>
Fig. D-1: Example of board (S: start, G: goal)

The movement of the stone obeys the following rules:

* At the beginning, the stone stands still at the start square.
* The movements of the stone are restricted to x and y directions. Diagonal moves are prohibited.
* When the stone stands still, you can make it moving by throwing it. You may throw it to any direction unless it is blocked immediately(Fig. D-2(a)).
* Once thrown, the stone keeps moving to the same direction until one of the following occurs:
* The stone hits a block (Fig. D-2(b), (c)).
* The stone stops at the square next to the block it hit.
* The block disappears.
* The stone gets out of the board.
* The game ends in failure.
* The stone reaches the goal square.
* The stone stops there and the game ends in success.
* You cannot throw the stone more than 10 times in a game. If the stone does not reach the goal in 10 moves, the game ends in failure.



<image>
Fig. D-2: Stone movements

Under the rules, we would like to know whether the stone at the start can reach the goal and, if yes, the minimum number of moves required.

With the initial configuration shown in Fig. D-1, 4 moves are required to bring the stone from the start to the goal. The route is shown in Fig. D-3(a). Notice when the stone reaches the goal, the board configuration has changed as in Fig. D-3(b).

<image>
Fig. D-3: The solution for Fig. D-1 and the final board configuration



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. The number of datasets never exceeds 100.

Each dataset is formatted as follows.

> the width(=w) and the height(=h) of the board
>  First row of the board
>  ...
>  h-th row of the board
>

The width and the height of the board satisfy: 2 <= w <= 20, 1 <= h <= 20.
Each line consists of w decimal numbers delimited by a space. The number describes the status of the corresponding square.

> 0 | vacant square
> ---|---
> 1 | block
> 2 | start position
> 3 | goal position

The dataset for Fig. D-1 is as follows:

> 6 6
>  1 0 0 2 1 0
>  1 1 0 0 0 0
>  0 0 0 0 0 3
>  0 0 0 0 0 0
>  1 0 0 0 0 1
>  0 1 1 1 1 1
>

Output

For each dataset, print a line having a decimal integer indicating the minimum number of moves along a route from the start to the goal. If there are no such routes, print -1 instead. Each line should not have any character other than this number.

Example

Input

2 1
3 2
6 6
1 0 0 2 1 0
1 1 0 0 0 0
0 0 0 0 0 3
0 0 0 0 0 0
1 0 0 0 0 1
0 1 1 1 1 1
6 1
1 1 2 1 1 3
6 1
1 0 2 1 1 3
12 1
2 0 1 1 1 1 1 1 1 1 1 3
13 1
2 0 1 1 1 1 1 1 1 1 1 1 3
0 0


Output

1
4
-1
4
10
-1
#提出が大幅に遅れてしまい、本当に申し訳ありません。
#着席位置は左*奥
#問題は「Curling 2.0」(http://judge.u-aizu.ac.jp/onlinejudge/description.jsp?id=1144&lang=jp)

#要は全探索しろという話なのですが、DFSで5日ほど頑張って結局バグが取れなかったのと、
#枝刈りができなかったのとが原因でQueueを使ったBFSに切り替えました
#無限にバグを出したので実装が相当気持ち悪い事になっています

from queue import Queue as q

#以下、しばらく上下左右それぞれの移動の関数です
#移動はとにかく一方向に見ていって、ゴールなら終わり、壁なら次の状態を返す、端までいったらNoneを返すものです
#ただし、試行回数が10を超えてしまったら強制的にNoneを返します
def l_move(data):
    global flag
    field,n,i,j = data[0],data[1],data[2],data[3]
    if j == 0 or field[i][j-1] == 1 or n == 0:
        return(None)
    while(j):
        if field[i][j-1] == 0:
            j -= 1
        elif field[i][j-1] == 3:
            flag = True
            print(11-n)
            return(None)
        else:
            nfield = field[:i] + [field[i][:j-1] + [0] + field[i][j:]] + field[i+1:]
            n -= 1
            return([nfield,n,i,j])
    return(None)

def u_move(data):
    global flag
    field,n,i,j = data[0],data[1],data[2],data[3]
    if i == 0 or field[i-1][j] == 1 or n == 0:
        return(None)
    while(i):
        if field[i-1][j] == 0:
            i -= 1
        elif field[i-1][j] == 3:
            flag = True
            print(11-n)
            return(None)
        else:
            nfield = field[:i-1] + [field[i-1][:j] + [0] + field[i-1][j+1:]] + field[i:]
            n -= 1
            return([nfield,n,i,j])
    return(None)

def r_move(data):
    global flag
    field,n,i,j = data[0],data[1],data[2],data[3]

    if j == y-1 or field[i][j+1] == 1 or n == 0:
        return(None)
    while(j < y-1):
        if field[i][j+1] == 0:
            j += 1
        elif field[i][j+1] == 3:
            flag = True
            print(11-n)
            return(None)
        else:
            nfield = field[:i] + [field[i][:j+1] + [0] + field[i][j+2:]] + field[i+1:]
            n -= 1
            return([nfield,n,i,j])
    return(None)

def d_move(data):
    global flag
    field,n,i,j = data[0],data[1],data[2],data[3]
    if i == x-1 or field[i+1][j] == 1 or n == 0:
        return(None)
    while(i < x-1):
        if field[i+1][j] == 0:
            i += 1
        elif field[i+1][j] == 3:
            flag = True
            print(11-n)
            return(None)
        else:
            nfield = field[:i+1] + [field[i+1][:j] + [0] + field[i+1][j+1:]] + field[i+2:]
            n -= 1
            return([nfield,n,i,j])
    return(None)

while(True):
    flag = False #これがTrueになったら出力して次のデータセット
    y,x = map(int,input().split()) #入力部
    lis = q() #BFS用のQueue
    if x == 0:
        break
    field = [] #これはカーリングの盤面
    for i in range(x):
        field.append(list(map(int, input().split()))) #盤面の入力部
    for i in range(x):
        for j in range(y):
            if field[i][j] == 2:
                start_x, start_y = i,j #開始位置を探す
                field[i][j] = 0
    data = [field,10,start_x,start_y] #これから扱うデータは[盤面、残り試行回数、石のx座標、y座標]とします
    lis.put(data) #とりあえずQueueに初期状態をぶっこむ
    while(lis.qsize()):
        #後はひたすらQueueから状態を持ってきて上下左右に動かしてQueueに入れ直すことを繰り返します
        #ゴールについた瞬間に出力して次のデータセットに移ります
        #一番苦労したのはPythonだとシャローコピーのせいで盤面を直接いじれない点でした
        #かといって二次元配列のディープコピーはめちゃくちゃ遅くTLEが取れませんでした
        #仕方ないので上の実装にあるように無理やり盤面を作る方針にしました
        d = lis.get()
        tmp = l_move(d)
        if flag:
            break
        if tmp != None:
            lis.put(tmp)
        tmp = u_move(d)
        if flag:
            break
        if tmp != None:
            lis.put(tmp)
        tmp = d_move(d)
        if flag:
            break
        if tmp != None:
            lis.put(tmp)
        tmp = r_move(d)
        if flag:
            break
        if tmp != None:
            lis.put(tmp)
    #最後までたどり着かなかったら-1を出力して終わり
    if not flag:
        print(-1)

