(defun n-atomos (lista) (cond ((null lista) 0) ((atom lista) 1) (t (+ (n-atomos (first lista)) (n-atomos (rest lista))))))