    {:abilities [{:msg "end the run" :effect (effect (end-run))}]}
 
    "Grim"
-   {:effect (effect (gain :bad-publicity 1) (system-msg "takes 1 bad publicity"))}
+   {:effect (effect (gain :bad-publicity 1) (system-msg "takes 1 bad publicity"))
+    :abilities [{:prompt "Choose a program to trash" :msg (msg "trash " (:title target))
+                 :label "Trash a program" :choices (req (get-in runner [:rig :program]))
+                 :effect (effect (trash target))}]}
 
    "Guard"
    {:abilities [{:msg "end the run" :effect (effect (end-run))}]}

   {:abilities [{:msg "end the run" :effect (effect (end-run))}]}

   "Rototurret"
   {:abilities [{:msg "trash 1 program"}
                {:msg "end the run" :effect (effect (end-run))}]}

   "Salvage"
   {:advanceable :while-rezzed

                {:cost [:credit 1] :msg "add 1 strength" :effect (effect (pump card 1))}]}

   ;; ICE
   "Archer"
   {:abilities [{:msg "gain 2 [Credits]" :effect (effect (gain :credit 2))}
                {:prompt "Choose a program to trash" :label "Trash a program"
                 :msg (msg "trash " (:title target))
                 :choices (req (get-in runner [:rig :program])) :effect (effect (trash target))}
                {:msg "end the run" :effect (effect (end-run))}]}

   "Ashigaru"
   {:abilities [{:msg "end the run" :effect (effect (end-run))}]}

   "Bastion"
   {:abilities [{:msg "end the run" :effect (effect (end-run))}]}

   "Burke Bugs"
   {:abilities [{:prompt "Choose a program to trash" :label "Trash a program"
                 :msg (msg "trash " (:title target))
                 :choices (req (get-in runner [:rig :program])) :effect (effect (trash target))}]}

   "Caduceus"
   {:abilities [{:msg "gain 3 [Credits]" :effect (effect (gain :credit 3))}
