RosettaCodeData/Task/Visualize-a-tree/Common-Lisp/visualize-a-tree-2.lisp

CL-USER> (visualize '(a b c ((d (e ((() ()))) f)) (g)))
A
|
B
|
C
|
+---+
|   |
|   +---+
|       |
|       D
|       |
|       +---+
|       |   |
|       |   E
|       |   |
|       |   +---+
|       |       |
|       |       +---+
|       |           |
|       |           +---+
|       |           |
|       |           +---+
|       |
|       F
|
+---+
    |
    G

NIL