(load "include/draw-tree.scm")

(dt '(a b c (d e f (g . h))))

(dt '((a) (b . c) (d e)))