i:.''0:"i/10"
p:{$[9=l:i. y;:,y;,/o[x]'n@&l=-1+i./:n:(y+/:(0 1;1 0;0 -1;-1 0))^x]}[]'+&~i
+/#'?'p
#,/p