(defun rcount (l)
  (if (null l)
      0
      (+ (first l)
	 (rcount (rest l)))))