(define (make-monitored f)
  (define calls-count 0)
  (lambda (args)
    (cond [ (equal? args 'how-many-calls?) calls-count ]
               [(equal? args 'reset-count) (set! calls-count 0) 0]
               [else (set! calls-count (+ 1 calls-count)) (f args)])))