(atomic (def enq (obj q) ...) (def deq (q) ...))
arc> (atomic (def wait () (sleep 5) (prn "done with wait")) (def stuff () (prn "stuff!"))) #<procedure: stuff> arc> (thread (wait)) #<thread> arc> (stuff) stuff! "stuff!" arc> done with wait
-----
(let ctr 0 (def inc () (++ ctr)) (def reset () (= ctr 0))