                      :dealer-feedback ""}))
 
 (def cardnames ["ace", "2", "3", "4", "5", "6", "7", "8", "9" "10" "J" "Q" "K"])
-(def suits [" of clubs" " of diamonds" " of hearts" " of spades"])
+(def suits ["clubs" "diamonds" "hearts" "spades"])
 
 (defn deal
   "Deal one card from the deck to a hand in the given

          [deck3 player2 disc3] (deal (deal [deck2 player1 disc2] :up) :up)]
      (swap! game assoc :playing true :discard-pile disc3 :player-hand player2
             :dealer-hand dealer2 :deck deck3 :dealer-feedback "" :player-feedback "")
      (if (immediate-win player2 dealer2)
        (do
          (swap! game assoc :dealer-hand (reveal dealer2))
          (end-game dealer2 player2))))))

(defn hit-me [event]
  (let [{:keys [deck discard-pile dealer-hand player-hand]} @game
        [deck2 player2 discard2] (deal [deck player-hand discard-pile] :up)
        [total status] (evaluate-hand player2)]
    (swap! game assoc :player-hand player2 :deck deck2 :discard-pile discard2)
    (if (= status :bust) (end-game dealer-hand player2))))

(defn stand [event]
  (let [{:keys [deck dealer-hand player-hand discard-pile]} @game
        dhand (reveal dealer-hand)]
    (swap! game assoc :dealer-hand dhand)

                   :height "133px"
                   :width "98px"}}]))

(defn show-cards
  "Show all the cards in a hand."
  [hand]
  (into [] (concat [:div {:class "cards"}]
                   (map (fn [x] (card-image hand x)) (range 0 (count hand))))))

(defn tableau
  "Display the playing area (the tableau)."
  []
  (let [{:keys [dealer-hand player-hand playing dealer-feedback player-feedback
                player-money current-bet]} @game]
  [:div
   [:h2 "Dealer’s Cards " [:span {:class "dealerFeedback"} dealer-feedback]]
   [show-cards dealer-hand]
   [:hr]
   [:h2 "Your Cards " [:span {:class "playerFeedback"} player-feedback]]
   [show-cards player-hand]
   [:p
    [:input {:type "button"
