 
    "Witness Tampering"
    {:effect (effect (lose :bad-publicity 2))}
+
+   "Woman in the Red Dress"
+   {:events {:runner-turn-begins
+             {:msg (msg "reveal " (:title (first (:deck corp))) " on the top of R&D")
+              :optional {:prompt (msg "Draw " (:title (first (:deck corp))) "?")
+                         :msg (msg "draw " (:title (first (:deck corp))))
+                         :no-msg "doesn't draw with Woman in the Red Dress"
+                         :player :corp :effect (effect (draw))}}}}
 
    "Wyldside"
    {:events {:runner-turn-begins {:msg "draw 2 cards and lose [Click]"

   {:effect (effect (gain :link 2 :memory 2)) :leave-play (effect (lose :link 2 :memory 2))
    :recurring 2}

   "Woman in the Red Dress"
   {:events {:runner-turn-begins
             {:msg (msg "reveal " (:title (first (:deck corp))) " on the top of R&D")
              :optional {:prompt (msg "Draw " (:title (first (:deck corp))) "?")
                         :msg (msg "draw " (:title (first (:deck corp))))
                         :no-msg "doesn't draw with Woman in the Red Dress"
                         :player :corp :effect (effect (draw))}}}}

   "Three Steps Ahead"
   {:end-turn {:effect (effect (gain :credit (* 2 (count (:successful-run runner-reg)))))
               :msg (msg "gain " (* 2 (count (:successful-run runner-reg))) " [Credits]")}}

   "Spooned"
   {:prompt "Choose a server" :choices (req servers) :effect (effect (run target))}

   "Stim Dealer"
   {:events {:runner-turn-begins
             {:effect #(if (>= (:counter %3) 2)
