(defun alisa (lista) (cond ((null lista) nil) ((atom lista) (list lista)) (t (append (alisa (first lista)) (alisa (rest lista))))))