clojure stm sample code