i:.'*0:"i/9"
+/&{$[^p:x?-1;x;-1_@[x;p;:;*|x]]}/-1|-2!x*1-2*2!x:&i
+/&(0|x[;1])@&*'x:(i,'-1|-2!x*1-2*2!x:!#i){
 p:x[;1]?y
 s:x[p;0]
 q:*&(~x[;0]<s)&x[;1]=-1
 $[(q>p)|^q;:x;]
 x[p]:s,-1
 $[x[q]~s,-1;@[x;q;:;s,y];?[@[x;q;-;s,0];q;,s,y]]}/1+|!-2!#i