{=}stopped/f{0 0 0 4 index{dup 4 1 roll 2 copy lt{def 1 sub}{gt{1 add}if}ifelse 3 2 roll 1 index min 3 1 roll exch}forall}def(%stdin)(r)file 300 string readline f def exch pop/min{4 index eq{{( )print}repeat 5 index 2 index write -1}if 1 add}def 1 9{f def def/ =}for