Seminario_TP4_EJ03

(defun cuenta-atomos (l)
    (if (null l)
        0
        (if (atom (car l))
            (+ 1 (cuenta-atomos (cdr l)))
            (+ (cuenta-atomos (car l)) (cuenta-atomos (cdr l)))
        )
    )
)