 
    "NEXT Silver"
    {: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))}]}
 
    "Paper Wall"
    {:abilities [{:msg "end the run" :effect (effect (end-run))}]}

                                 :effect (effect (move target :deck))
                                 :msg (msg "add " (if (:seen target) (:title target) "a card")
                                           " to the bottom of R&D")} card target))}}}}

   "Hard at Work"
   {:events {:runner-turn-begins {:msg "gain 2 [Credits] and lose [Click]"


   "Thomas Haas"
   {:advanceable :always
    :abilities [{:label "Gain credits" :msg (msg "gain " (* 2 (:advance-counter card)) " [Credits]")
                 :effect (effect (gain :credit (* 2 (:advance-counter card))) (trash card))}]}

   "Toshiyuki Sakai"
   {:advanceable :always}
