#lang smol/hof
(deffun (mk-counter amount)
  (lambda (m)
    (if (equal? m "get")
        amount
        (set! amount (+ 1 amount)))))

(defvar o1 (mk-counter 1000))
(defvar o2 (mk-counter 0))
(o1 "count")
(o2 "count")
(o1 "get")
(o2 "get")