Print-tree in Common Lisp