A General Procedure

Write one procedure to do the work of both:
     (define num-digits-in-satisfying
       (lambda (n test?)
         (cond ((< n 0) _____________________)
	       ...)))