i:{^x}_{$[".."~-2#x;`u;"$ c"~3#x;`c;`I$*" "\x]}'0:"i/07"
i:(&`s=@'i)_i
s:(+/0+/'1_')'{(*&1>+\-1+2*`c=*'x)#x:x_i}'&`c=*'i
+/(1e5<)_s
&/s@&~s<*s-4e7