     (repeat count {:face face :value value :visible []})))
 
 (defn generate-deck []
-  (vec (shuffle (mapcat generate-card cards))))
+  (-> (mapcat generate-card cards) shuffle vec))
 
 (defn create-player [n]
   {:id n

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

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

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

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