(defun f1(l)
(cond((null l) 0)
((atom(car l))(+ 1 (f1 (cdr l))))
(t (f1(cdr l)))))