(i;f):"\n"\'"\n\n"\1:"i/13"
i:((2#2000)#0){x[*|y;*y]:1;x}/.'i
f:{((,(+:))"y"=*|*x;.*|x)}'"="\'f
g:{(x#y)||x#(x+1)_y}
+//i{g[*|y]@(*y)@x}/,*f
`0:"\n"/" #"i{(*y)@g[*|y]@(*y)@x}/f