;; IN: a list, possibly deep
;; OUT: the number of deep-elements in the list

(define (deep-count ls)
  (cond ((null? ls) 0)
	((atom? ls) 1)
	(else (+ (deep-count (car ls))
		 (deep-count (cdr ls))))))