Ejercicio parcial

(defun ultimo-elem-es-atomo (lista)
    (not (null(atom (car(nthcdr (-(length lista)1) lista)))))
)

(defun get-ultimo-elem (lista)
    (car(nthcdr (-(length lista)1) lista))
)

(defun lista-sin-ultimo-elem (lista)
    (if (null(cdr lista)) nil
        (cons (car lista) (lista-sin-ultimo-elem(cdr lista)))
    )
)

(defun bajar-nivel (lista)
    (if (null lista) nil
        (if (listp (car lista))
            (if (ultimo-elem-es-atomo (car lista))
                (cons(bajar-nivel(lista-sin-ultimo-elem(car lista)))
                (cons(get-ultimo-elem(car lista))
                (bajar-nivel (cdr lista))))
                (cons (bajar-nivel(car lista))(bajar-nivel (cdr lista)))
            )

            (cons (car lista)(bajar-nivel (cdr lista)))
        )
    )
)

(defun iniciar (lista)
    (if (null lista) nil
    (if (ultimo-elem-es-atomo lista)
        (bajar-nivel (lista-sin-ultimo-elem lista))
        (bajar-nivel lista)
    )
    )
)






(setq lista1 '(1 2 (3 4) 5))
(setq lista2 '(a z (b m u(c d e) f) g h((r (o j))) k))
(setq lista3 '(3(a b)4 5 6((b c)7 8)9))
(setq lista4 '(1 2 3))
(setq lista6 '(1 2(3 4)(5 6)7))
(setq lista7 '(1 2(3 4)(5 6)))