연습문제 3.2

(define (make-monitored f)
  (let ((calls 0))
    (define (mf m)
      (cond ((eq? m 'how-many-calls) calls)
            ((number? m)
             (begin (set! calls (+ calls 1))
                    (f m)))))
    mf))