#lang plai/gc2/mutator
(allocator-setup "mark-sweep-free-list.rkt" 240)

(define (mk-counter)
  (let ([j 0])
    (lambda ()
      (begin
        (set! j (add1 j))
        j))))

(define counter (mk-counter))

(counter)
(counter)
(counter)
(counter)