Seminario_TP4_EJ04

(defun agregar (a l)
    (if (null l)
        (cons (list a) l)
        (if (numberp (caar l))
            (if (numberp a)
                (append (list (append (car l) (list a))) (cdr l))
                (cons (car l) (agregar a (cdr l)))
            )
            (if (numberp a)
                (cons (car l) (agregar a (cdr l)))
                (append (list (append (car l) (list a))) (cdr l))
            )
        )
    )
)

(defun separa (l &optional (salida nil))
    (if (null l)
        salida
        (if (atom (car l))
            (separa (cdr l) (agregar (car l) salida))
            (separa (cdr l) (separa (car l) salida))
        )
    )
)