Recorre.lsp

(setq Lista '( (a (b c) ) (b (d e) ) (c (f g) ) (d (h i) ) (e (j k) ) (f (l m) ) (g (n o) ) ) )

(defun Recorre (Lista)
	(cond
		((eql nil Lista) t)
		(t	(setq x (car Lista))
			(print x)
			(inicio (cdr Lista))
		)
	)
)

(defun Compara (Lista X)
	(eql (car Lista) X)
)

(defun Busca (X)
	(setq Raiz (car Lista))
	(setq Inicio (cons (car Raiz) nil))
	(setq Recorrido (Busq_Profunda Raiz X))
	(append Inicio Recorrido)
)

(defun Busq_Profunda (Raiz X)
	(setq Actual (Recorre 
)