(DEFUN REVERSE(lst)
 (COND ((NULL lst) NIL)
       ((ATOM (CAR LST)) (APPEND (REVERSE (CDR lst)) (LIST(CAR LST))) )
       (1 (APPEND  (REVERSE (CDR lst)) (LIST (REVERSE (CAR LST)))) )
 )
)