b:0 0 0 1 1 2 2 2 5 5

t:{i/y i:<(x@y\)'!#y}
db:t[|:]
bd:t[#:]

b~bd d:db b

\

k:3
m:4
<,/(|p)*!:'p:_ k^!m	/ preorder traversal sequence (roger->greg->stefano)

b:0 0 0 0 1 1 2 2 4 4 6 6 6 10 10

0
 1
  4
   8
   9
  5
 2
  6
   10
    13
    14
   11
   12
  7
 3

0
 1
  2
   3
   4
  5
 6
  7
   8
    9
    10
   11
   12
  13
 14

/ paths

t:(0;(1 2;(1 0 1;0;2 2 1));1 2 2)
paths:{{:[@c:x . y;,y;~#c;,y;,/_f[x]'y,/:!#c]}[x;()]}

  paths t
(,0
 (1
  0 0 1
  (1
   0 0 1 2
   ,1
   2 0 1 2))
 2 0 1 2)