 
    "Gutenberg"
    {:abilities [{:label "Trace 7 - Give the Runner 1 tag"
-                 :trace {:base 7 :msg "give the Runner 1 tag" :effect (effect (gain :runner :tag 1))}}]}
+                 :trace {:base 7 :msg "give the Runner 1 tag" :effect (effect (gain :runner :tag 1))}}]
+    :strength-bonus (req (if (= (second (:zone card)) :rd) 3 0))}
 
    "Hadrians Wall"
    {:advanceable :always
-    :abilities [{:msg "end the run" :effect (effect (end-run))}]}
+    :abilities [{:msg "end the run" :effect (effect (end-run))}]
+    :strength-bonus (req (or (:advance-counter card) 0))}
 
    "Himitsu-Bako"
    {:abilities [{:msg "end the run" :effect (effect (end-run))}

                 :msg "force the Corp to trash the top card of R&D"}]}

   "Datasucker"
   {:events {:successful-run {:effect (effect (add-prop card :counter 1))
                              :req (req (#{:hq :rd :archives} target))}}
    :abilities [{:counter-cost 1 :msg (msg "give -1 strength to " (:title current-ice))}]}

   "Day Job"
   {:additional-cost [:click 3] :effect (effect (gain :credit 10))}

   "Scorched Earth"
   {:req (req tagged) :effect (effect (damage :meat 4 {:card card}))}

   "Scrubbed"
   {:events (let [sc {:effect (req (update! state side (dissoc card :scrubbed-target)))}]
                 {:encounter-ice {:once :per-turn
                                  :effect (effect (update! (assoc card :scrubbed-target target)))}
                  :pre-ice-strength {:req (req (= (:cid target) (:cid (:scrubbed-target card))))
                                     :effect (effect (ice-strength-bonus -2))}
                  :pass-ice sc :run-ends sc})}

   "Scrubber"
   {:recurring 2}

