(defun count-of (item sequence)
  (let ((c 0))
    (dolist (piece sequence)
      (if (listp piece)
	  (setf c (+ c (count item piece)))
	  (if (eql piece item)
	      (incf c))))
    c))

(defun sum-of (sequence)
  (let ((s 0))
    (dolist (piece sequence)
      (if (listp piece)
	  (setf s (+ s (apply #'+ piece)))
	  (setf s (+ s piece))))
    s))

(defun odd-of (sequence)
  (let ((o 0))
    (dolist (piece sequence)
      (if (listp piece)
	  (setf o (+ o (count T (mapcar #'oddp piece))))
	  (if (oddp piece)
	      (incf o))))
    o))