;
(defun reverse (lst)
        (cond   ((null lst) nil)
                (t      (append (reverse (cdr lst)) (list (car lst))))
        )
)
(setq l1 '(a b c d e f g h i j k l))
(setq l2 '(a (b c) (d e f ) g ((h i))))