(define (make-monitored func)
  (let ((init 0))     
    (lambda (x)
      (cond ((eq? x 'how-many-calls?) init)
            ((eq? x 'reset-count) (set! init 0))
            (else (set! init (+ 1 init)) (func x))))))