 (defn generate-card-actions [game card]
   (let [high-card-action (generate-high-card-action game card)
         targets (u/valid-targets game)]
+    (cons high-card-action
           (case (:face card)
             :guard  (map #(guard-elimination-action game %) (guard-prob-inputs game))
             :priest (map #(priest-assist-action game %) targets)

        :countess   0
        :default    0))))


(defn contains-attack-card? [hand]
  (let [faces (set (map :face hand))]
    (some faces [:baron :guard :prince])))


(defn player-hand [game id]
  (get-in game [:players id :hand]))

(defn filter-fresh-deck [card-list]
  (reduce (fn [deck card]
            (u/remove-first card deck)) complete-deck card-list))

(defn high-card [game card]
  (let [{:keys [discard-pile current-player]} game
