(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