 (defn find-card [game target]
   (-> game
       (get-in [:players target :hand])
-      first))
+      peek))
 
 (defn create-and-deal []
   (-> (create-game)

  (let [hand (player :hand)]
    (merge
     (select-keys player [:id])
     (select-keys (first hand) [:face :value]))))

(defn score-game [game]
  (-> game

    (repeat count {:face face :value value :visible []})))

(defn generate-deck []
  (-> (mapcat generate-card cards) shuffle vec))

(defn create-player [n]
  {:id n
