   {:label "End the run"
    :msg "end the run"
    :effect (effect (end-run))})
+
+(defn tag-trace
+  "Trace ability for giving a tag, at specified base strength"
+  [base]
+  {:label (str "Trace " base " - Give the Runner 1 tag")
+   :trace {:base base
+           :msg "give the Runner 1 tag"
+           :effect (effect (tag-runner :runner 1))}})
 
 (defn do-net-damage
   "Do specified amount of net-damage."

   {:abilities [end-the-run]}

   "Gutenberg"
   {:abilities [{:label "Trace 7 - Give the Runner 1 tag"
                 :trace {:base 7 :msg "give the Runner 1 tag" :effect (effect (tag-runner :runner 1))}}]
    :strength-bonus (req (if (= (second (:zone card)) :rd) 3 0))}

   "Gyri Labyrinth"

                 :msg (msg "place 1 advancement token on " (card-str state target))
                 :choices {:req can-be-advanced?}
                 :cost [:credit 1] :effect (effect (add-prop target :advance-counter 1))}
                (tag-trace 2)]}

   "Merlin"
   (grail-ice (do-net-damage 2))
