    "Grappling Hook"
    {:abilities [{:msg "break all but 1 subroutine" :effect (effect (trash card))}]}
 
+   "Gravedigger"
+   {:events {:trash {:req (req (and (= (first (:zone target)) :servers) (= (:side target) "Corp")))
+                     :effect (effect (add-prop :runner card :counter 1))}}
+    :abilities [{:counter-cost 1 :cost [:click 1] :effect (effect (mill :corp))}]}
+
    "Green Level Clearance"
    {:effect (effect (gain :credit 3) (draw))}
 

   {:abilities [{:msg "access all cards in Archives"
                 :effect (effect (handle-access (:discard corp)) (trash card))}]}

   "Harbinger"
   {:events {:trash {:req (req (and (= (first (:zone target)) :servers) (= (:side target) "Corp")))
                     :effect (effect (add-prop :runner card :counter 1))}}
    :abilities [{:counter-cost 1 :cost [:click 1] :effect (effect (mill :corp))}]}

   "Hard at Work"
   {:events {:runner-turn-begins {:msg "gain 2 [Credits] and lose [Click]"
                                  :effect (effect (lose :click 1) (gain :credit 2))}}}


   "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]"
