 
 ;; utils
 (defn log-message [game message]
-  (update-in game [:messages] (fn [v] (conj v message))))
+  (update-in game [:messages] conj message))
 
 (defn clear-messages
   [game]
-  (update-in game [:messages] (fn [v] (vec []))))
+  (assoc game :messages []))
 
 (defn ->module
   [hp ap dp]

  (apply (partial merge-with +) modules))



(defn make-modules-for-game []
  (map #(apply ->module %) (shuffle (selections [0 1 2 3 4] 3))))

(defn rat-stats
  [{modules :modules}]


(defn rat-energy-required
  [rat]
  (reduce + (vals (rat-stats rat))))

;; arena rat
(defn rat-is-alive?
