    {:abilities [{:msg "end the run" :effect (effect (end-run))}]}
 
    "Rototurret"
-   {:abilities [{:prompt "Choose a program to trash" :msg "Trash a program" :label "Trash a program"
+   {: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))}
                 {:msg "end the run" :effect (effect (end-run))}]}
 

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

   "Orion"
   {:abilities [{:prompt "Choose a program to trash" :msg "Trash a program" :label "Trash a program"
                 :choices (req (get-in runner [:rig :program])) :effect (effect (trash target))}
                {:msg "end the run" :effect (effect (end-run))}]}


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

   "Cell Portal"
   {:abilities [{:msg "make the Runner approach the outermost ICE"
                 :effect #(do (swap! %1 assoc-in [:run :position] 0) (derez %1 %2 %3))}]}

   "Changeling"
