(defun LINE (tree) (if tree (apply '(lambda (root left right) (append (LINE left) (list root) (LINE right))) tree)))