i:0:"i/12"
s:{x|/((:)':x;|(:)':|x;+(:)':+x;+|(:)':|+x)}
r:{x&~y}':{x|((i=i .k)&s@)/.[^i;0 0|k:*+&~x;:;1]}\^i
+/{l*(4*l:#*x)-+//~^(+x)?+'(0 1;1 0;0 -1;-1 0)+\:x:&x}'r
+/{(+//x)*+//{{+/|/'(&~x)_x:0,x}'x&~0^(:)':x}'(x;|x;+x;|+x)}'r