    {:effect (effect (gain :credit 8) (gain :runner :credit 3))}
 
    "Medium"
-   {:events {:successful-run {:req (req (= target :rd))
-                              :effect (effect (access-bonus (:counter card))
-                                              (add-prop card :counter 1))}}}
+   {:events
+    {:successful-run
+     {:req (req (= target :rd))
+      :effect (effect (add-prop card :counter 1)
+                      (access-bonus (max 0 (dec (get-virus-counters state side (get-card state card))))))}}}
 
    "Melange Mining Corp."
    {:abilities [{:cost [:click 3] :effect (effect (gain :credit 7)) :msg "gain 7 [Credits]"}]}

   "Deep Thought"
   {:events {:successful-run {:effect (effect (add-prop card :counter 1)) :req (req (= target :rd))}
             :runner-turn-begins
             {:req (req (>= (:counter card) 3)) :msg "look at the top card of R&D"
              :effect (effect (prompt! card (str "The top card of your R&D is "
                                                 (:title (first (:deck corp)))) ["OK"] {}))}}}


   {:abilities [{:cost [:click 2] :effect (effect (gain :credit 3)) :msg "gain 3 [Credits]"}]}

   "Gorman Drip v1"
   {:abilities [{:cost [:click 1] :effect (effect (gain :credit (get-virus-counters state side card)) (trash card))
                 :msg (msg "gain " (get-virus-counters state side card) " [Credits]")}]
    :events {:corp-click-credit {:effect (effect (add-prop :runner card :counter 1))}
             :corp-click-draw {:effect (effect (add-prop :runner card :counter 1))}}}

