(use 'vijual)

(draw-tree [[:A] [:B] [:C [:D [:E] [:F]] [:G]]])