                 (trace-ability 3 end-the-run)]}
 
    "Virgo"
-   (constellation-ice {:label "Give the Runner 1 tag"
-                       :msg "give the Runner 1 tag"
-                       :effect (effect (tag-runner :runner 1))})
+   (constellation-ice give-tag)
    
    "Wall of Static"
    {:abilities [end-the-run]}

                end-the-run]}

   "Data Raven"
   {:abilities [{:msg "give the Runner 1 tag"
                 :effect (effect (tag-runner 1))}
                {:msg "give the Runner 1 tag using 1 power counter"
                 :counter-cost 1
                 :effect (effect (tag-runner 1))}

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