(define count-calls!
  (let ((count 0))
    (lambda (ignored)
      (set! count (add1 count))
      count)))