                        [reveal r] (split-with (complement ice?) (get-in @state [:corp :deck]))
                        titles (->> (conj (vec reveal) (first r)) (filter identity) (map :title))]
                    (trash state side target {:cause :ability-cost})
-                   (when (seq titles) 
+                   (when (seq titles)
                      (system-msg state side (str "reveals " (clojure.string/join ", " titles) " from R&D")))
                    (if-let [ice (first r)]
                      (let [newice (assoc ice :zone (:zone target) :rezzed true)

                                    {:msg (msg "place " c " advancement tokens on "
                                               (if (:rezzed target) (:title target) "a card"))
                                     :choices {:req #(or (= (:type %) "Agenda") (:advanceable %))}
                                     :effect (effect (add-prop target :advance-counter c))} card nil)))}

   "Punitive Counterstrike"
   {:trace {:base 5 :msg (msg "do " (or (:stole-agenda runner-reg) 0) " meat damage")

                               (and (= (:advanceable %) "while-rezzed") (:rezzed %))
                               (= (:type %) "Agenda"))}
    :msg (msg "1 advancement tokens on " (count targets) " cards")
    :effect (req (doseq [t targets] (add-prop state :corp t :advance-counter 1 {:placed true})))}

   "Shipment from MirrorMorph"
   (let [shelper (fn sh [n] {:prompt "Select a card to install"
