Problem:
盤面上にロボットと壁，ゴールが設置されており， ロボットの行動パターンを記述したプログラムが与えられる．

与えられるプログラムは以下のEBNF で表される．

プログラム:= {文};
文:= if 文|while 文|動作文;
if 文:= "[", 条件, プログラム, "]";
while 文:= "{", 条件, プログラム, "}";

動作文:= "^"|"v"|"<"|">";
条件:= ["~"], "N"|"E"|"S"|"W"|"C"|"T";

「プログラム」は0個以上の「文」からなり，1つ以上の文が存在する場合は 1 つ目の文から順番に1 つずつ文が実行される．「文」は「動作文」，「if 文」，「while 文」のいずれかである．「動作文」は"^", "v","<",">" のいずれかであり，それぞれ以下の動作が実行される．

"^": 前進

"v": 後退

"<": 左に90 度回転

">": 右に90 度回転

「if 文」は "["，「条件」，「プログラム」，"]" を順番に並べたもので，以下の手順で実行される．

「条件」の内容が真かどうか判定する

判定が真なら「プログラム」の内容を実行し，このif 文の処理を終了する

判定が偽ならこのif 文の処理を終了する

「while 文」は "{"，「条件」，「プログラム」，"}" を順番に並べたもので，以下の手順で実行される．

「条件」の内容が真かどうか判定する

判定が真なら「プログラム」の内容を実行し，1 に戻る

判定が偽なら，この while 文の処理を終了する

「条件」は "N", "E", "S", "W", "C", "T" のいずれかであり，先頭には"~" をつけることができる．それぞれの記述は以下の真偽値を表す．

先頭に "~" が付いている場合は真偽値が逆転

N: 北を向いているならば真，そうでなければ偽

E: 東を向いているならば真，そうでなければ偽

S: 南を向いているならば真，そうでなければ偽

W: 西を向いているならば真，そうでなければ偽

C: 目の前に壁があるならば真，そうでなければ偽

T: 常に真

ロボットは最初，北を向いているものとする．ロボットは壁を通ることができず，何もないマスのみを移動できる．もし，プログラムが壁の上を通るような動作を実行しようとした場合，ロボットは移動せずその場にとどまる．最後に，ロボットはゴールに到達した時，実行途中のプログラムが残っていたとしてもすべて中断して動作を停止する．

このとき，ロボットがゴールにたどり着くまでにどのぐらい時間がかかるのか知りたい．ロボットは条件判定やプログラムの読み込みに関しては非常に高速に実行できるので実際の動作時間を決定するのは「動作文」のみである．そこで，このロボットがゴールに辿り着くまでに「動作文」を何回実行するかを教えてほしい．

なお，壁の上を通るような動作を実行しようとして，実際には「動作文」の動作が行われなかった場合にも「動作文」は実行されたものとみなす．

Input

入力は以下の形式で与えられる．

H W
a1,1a1,2 . . . a1,W
a2,1a2,2 . . . a2,W
: : :
aH,1aH,2 . . . aH,W
s

H は盤面の高さ，W は盤面の幅を表す．

次に盤面を真上から見た状態が与えられる．この盤面は上，下，左，右がそれぞれ北，南，西，東に対応する．各マスの状態を表す ai,j は以下のいずれかの文字である．

"s" : ロボット（ロボットの初期位置．このマスには壁がないことが保証されている）

"g" : ゴール

"#" : 壁（ロボットは壁の上を移動することはできない）

"." : 何もないマス

s にはロボットに与えられるプログラムが文字列として入力される．

Constraints

1 ≤ H,W ≤ 50

1 ≤ s の文字数 ≤ 1,000

ai,j は".", "#", "s", "g" のいずれか

"s", "g" はそれぞれ 1 回しか登場しない

i = 1 または i = H または j = 1 または j = W ならば ai,j = "#"（盤面の外周は壁で囲まれていることが保証されている）

s として与えられるプログラムは構文的に正しい

Output

たどり着ける場合は"到達するまでに実行した「動作文」の数" を，たどりつけない場合は "-1" を出力せよ．なお，壁の上を通るような動作を実行しようとして，実際には「動作文」の動作が行われなかった場合にも「動作文」が実行されたものとみなす点に注意せよ（入力例1）．

Sample Input 1

5 3
###
#g#
#.#
#s#
###
^<^<vv

Output for the Sample Input 1

5

Sample Input 2

5 7
#######
#.#g..#
#.###.#
#s....#
#######
{T{~C^}<}

Output for the Sample Input 2

17

Sample Input 3

5 7
#######
#.#g..#
#.###.#
#s....#
#######
{T{~C^}>}

Output for the Sample Input 3

-1

Solution in Ruby (judge verdict: Accepted)

$history = {}

class Goal < Exception; end
class Loop < Exception; end

$count = 0

def dummy(id)
	raise Goal if $x == $gx && $y == $gy
	a = [$x, $y, $dx, $dy, id]
	raise Loop if $history[a]
	$history[a] = 1
end

def check(id)
	raise Goal if $x == $gx && $y == $gy
	a = [$x, $y, $dx, $dy, id]
	raise Loop if $history[a]
	$history[a] = 1
	$count += 1
end 

def wall
	$a[$y + $dy][$x + $dx] == ?#
end

def north
	$dx == 0 && $dy == -1
end

def south
	$dx == 0 && $dy == 1
end

def east
	$dx == 1 && $dy == 0
end

def west
	$dx == -1 && $dy == 0
end

def right(id)
	check(id)
	$dx, $dy = -$dy, $dx
end

def left(id)
	check(id)
	$dx, $dy = $dy, -$dx
end

def forward(id)
	check(id)
	unless wall 
		$x += $dx
		$y += $dy
	end
end

def backward(id)
	check(id)
	unless $a[$y - $dy][$x - $dx] == ?#
		$x -= $dx
		$y -= $dy
	end
end

m, n = gets.split.map &:to_i
$a = (1..m).map { gets.chomp.scan /./ }

$dx = 0
$dy = -1
(0..m-1).each do |i|
	(0..n-1).each do |j|
		if $a[i][j] == ?s
			$y, $x = i, j
		end
		if $a[i][j] == ?g
			$gy, $gx = i, j
		end
	end
end

s = gets.chomp

cond = /~*[NESWCT]/
non_par = /[^{}\[\]]/

action_id = 0
0 while
	s.gsub!(/\[(#{cond})(#{non_par}*)\]/, 'if \1;\2;end;') ||
	s.gsub!(/{(#{cond})(#{non_par}*)}/){"while #{$1};dummy(#{action_id += 1});#{$2};end;"}

s.gsub!(?T, "true")
s.gsub!(?~, ?!)
s.gsub!(?C, "wall")
s.gsub!(?N, "north")
s.gsub!(?E, "east")
s.gsub!(?W, "west")
s.gsub!(?S, "south")

s.gsub!(?^) {"forward(#{action_id += 1});"}
s.gsub!(?v) {"backward(#{action_id += 1});"}
s.gsub!(?<) {"left(#{action_id += 1});"}
s.gsub!(?>) {"right(#{action_id += 1});"}

s.gsub!(?;, "\n")

terminate = true

begin
	eval s
rescue Goal
	terminate = false
	p $count
rescue Loop
	terminate = false
	p -1
end

if terminate
	p ($x == $gx && $y == $gy ? $count : -1)
end