\d .boxtree box:{[f;x]enc sub[f]x} sub:{[f;x]:[@x;f x;,/ver(,f@*x),,hor@(enc _f[f]@)'x 1]} hor:{,'/{y,(x,#*y)#""}'[(|/c)-c:#:'x;x]} ver:{{z,\:(x-y)#""}'[|/w;w:(#*:)'x;x]} enc:{{.[x;(0,-1+#x;0,-1+#*x);:;"+"]}{-1!x,(2,#*x)#"-"}("|",'x,'"|")}