    [funstructor.cards :as c]))
 
 (def start-cards-num 6)
+(def cards-per-turn 2)
 
 (defn- gap []
   {:terminal :gap

      ))

(defn init-game [game-map]
  (let [players (keys (get-in game-map [:players]))]
    (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

  {:players
   {p1 (make-player-state p2)
    p2 (make-player-state p1)}
   :current-turn p1
   :turn-ends 0})

(defn get-opponent-uuid [game uuid]
  (get-in game [:players uuid :opponent]))

(defn get-player-state [game uuid]
  (get-in game [:players uuid]))

(defn get-players [game]
  (keys (get-in game [:players])))

(defn- apply-to-cards
  "Get access to cards"
