(define num-digits
       (lambda (n)
         (num-digits-in-satisfying n (lambda (n) (= n n)))))

     (define num-digits
       (lambda (n)
         (num-digits-in-satisfying n (lambda (n) #t))))