; 4.15.2 make-do-n
(define (make-do-n f n)
  (lambda () (if (> n 0)
                 (begin (f)
                        ((make-do-n f (- n 1)))))))