(define counter 0)

(define (count)
  (set! counter (+ counter 1))
  counter)