#| BEGIN (Write your solution here) |#
(define (make-monitored f)
    (let ((counter 0))
        (lambda (arg)
            (cond
                ((eq? arg 'how-many-calls?) counter)
                ((eq? arg 'reset-count) (set! counter 0) counter)
                (else (set! counter (+ counter 1)) (f arg))
            )
        )
    )
)
#| END |#