(s;m):{(`I$1_" "\*x;{x@<x[;1]}'(.'2_)'(&~#'y)_y)}.0 1_0:"i/5"
in:{+(x[0]|y[;0];x[1]&y[;1])}
f:{,/{
 d:+\'y[;1 2]
 a:y{+\(x[0]+|/-:\x[1]-y[0];-/|y)}'in[x;d]
 b:in[x;0N 2#,/0,d,|//|/'m]
 (</')#a,b}[;y]'x}
&//(++\(,s),1)f/m
&//(+\'2 0N#s)f/m