   (let [hand (player :hand)]
     (merge
      (select-keys player [:id])
-     (select-keys (first hand) [:face :value]))))
+     (select-keys (peek hand) [:face :value]))))
 
 (defn score-game [game]
   (-> game

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

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

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

(defn find-card [game target]
  (-> game
      (get-in [:players target :hand])
      peek))

(defn create-and-deal []
  (-> (create-game)
