(ns com.game)
(defn do-action [game-id action params]
(let [game (from-atom game-id)
round (curr-round game)
handler (partial debit-points game-id)
new-round (do-action round action params handler)]
(-> (from-atom game-id)
(set-curr-round round)))
Hello