i:0:"i/6"
s:(*'&"^"=i;0)
f:{y+(d*"#"<q;"#"=q:x .y[0]+d:(-1 0;0 1;1 0;0 -1)4!y 1)}
#p:?*'f[i]\s
+/{r:f.[i;x;:;"#"];~p~r@p:(*/2##i)r/s}'p