(defn (counter)
	(let (a 0)
		(fn ()
			(set a (+ a 1))
			(say a))))
(def c1 (counter))
(def c2 (counter))
(c1)
(c1)
(c2)
(c2)
(c2)
(c2)
(c1)
(c1)