    {:abilities [{:req (req (= current-ice card))
                  :label "Reveal all cards in the Runner's Grip"
                  :msg (msg "reveal " (join ", " (map :title (:hand runner))))}
-                (trace-ability 3 {:label "Place 1 power counter on Snoop"
-                                  :msg "place 1 power counter on Snoop"
-                                  :effect (effect (add-prop card :counter 1))})
                 {:req (req (> (:counter card 0) 0))
                  :counter-cost 1
                  :label "Hosted power counter: Reveal all cards in Grip and trash 1 card"
-                 :msg (msg "look at all cards in Grip and trash " (:title target))
+                 :msg (msg "look at all cards in Grip and trash " (:title target)
+                           " using 1 power counter")
                  :choices (req (:hand runner))
                  :prompt "Choose a card to trash"
-                 :effect (effect (trash target))}]}
+                 :effect (effect (trash target))}
+                (trace-ability 3 add-power-counter)]}
 
    "Snowflake"
    {:abilities [{:msg "start a Psi game"

   (morph-ice "Sentry" "Code Gate" trash-program)

   "Mamba"
   {:abilities [(do-net-damage 1)
                {:msg "do 1 net damage using 1 power counter"
                 :counter-cost 1 :effect (effect (damage :net 1 {:card card}))}
                {:msg "start a Psi game"
                 :psi {:not-equal {:msg "add 1 power counter"
                                   :effect (effect (add-prop :runner card :counter 1))}}}]}

   "Markus 1.0"
   {:abilities [trash-installed end-the-run]}

  {:label (str "Gain " credits " [Credits]")
   :msg (str "gain " credits " [Credits]")
   :effect (effect (gain :credit credits))})

(defn power-counter-ability
  "Does specified ability using a power counter."
  [{:keys [label msg] :as ability}]
  (assoc ability :label (str "Hosted power counter: " label)
                 :msg (str msg " using 1 power counter")
                 :counter-cost 1))


;;; For Advanceable ICE
