i:0:"i/17"
p:,/+'("x"=*'i)(|:/)'{(*x;x[1]+!1+-/x[2 1])}'(~^:)#'`I$1_''(&'|/"xy .=,"=\:i)_'i
p[;0]-:*&/p
init:.[;0 500;:;2]((1 2+|/p)#0).[;;:;1]/p
r:{
 x:{
  l:0,'-1_'x
  r:1_'x,'0
  x|2*(~x)&(2=0,-1_x)|((2!1_l,0)&2=l)|((2!1_r,0)&2=r)}/x
 g:&'(~=)':'2=x
 a:&/''2=u:g_'x
 b:&/''2!g_'++1_x,0
 ,/'u|3*a&b}/init
+//r>1
+//3=r