       ))
 
 (defn init-game [game-map]
-  (let [players (keys (get-in game-map [:players]))]
+  (let [players (get-players game-map)]
     (reduce (fn [m player]
               (take-cards m player start-cards-num))
             game-map
             players)))
-
-
-(defn turn-card-winner [game-map]
-  (rand-nth (keys (get-in game-map [:players]))))
 
 ;; Examples
 ;; Use :terminal

(defn- get-card [game-map player-key pos]
  (get-in game-map [:players player-key :cards pos]))

(defn end-turn-for-player [game-map player-key])

(defn end-turn [game-map])


(defn use-card

   [funstructor.cards :as c]))

(def start-cards-num 6)
(def cards-per-turn 2)

(defn- gap []
  {:terminal :gap
