    :msg "end the run"
    :effect (effect (end-run))})
 
+(def give-tag
+  "Basic give runner 1 tag subroutine
+   Mostly used with tag-trace"
+  {:label "Give the Runner 1 tag"
+   :msg "give the Runner 1 tag"
+   :effect (effect (tag-runner :runner 1))}) 
+
 (defn trace-ability
   "Run a trace with specified base strength.
    If successful trigger specified ability"

(defn tag-trace
  "Trace ability for giving a tag, at specified base strength"
  [base]
  (trace-ability base {:label "Give the Runner 1 tag"
                       :msg "give the Runner 1 tag"
                       :effect (effect (tag-runner :runner 1))}))

(defn do-net-damage
  "Do specified amount of net-damage."

                (trace-ability 3 end-the-run)]}

   "Virgo"
   (constellation-ice give-tag)
   
   "Wall of Static"
   {:abilities [end-the-run]}
