RosettaCodeData/Task/Visualize-a-tree/J/visualize-a-tree-4.j

   ((<'george') 0} (<'fred') 4} ":each i.10)showtree _,}.p:inv i.10
                         ┌─ 6
          ┌─ 1 ─── 3 ────┴─ 7
          │              ┌─ 8
─ george ─┤     ┌─ fred ─┴─ 9
          └─ 2 ─┴─ 5