    "Modded"
    {:prompt "Choose a card to install"
     :choices (req (filter #(#{"Hardware" "Program"} (:type %)) (:hand runner)))
-    :effect (effect (gain :credit (min 3 (:cost target))) (runner-install target))}
+    :effect (effect
+              (register-events {:pre-install
+                                {:effect (effect (install-cost-bonus -3) (unregister-events card))}}
+                               (assoc card :zone '(:discard)))
+              (runner-install target))
+    :events {:pre-install nil}}
 
    "Monolith"
    {:prevent [:net :brain]

                 :msg "do 3 net damage" :effect (effect (damage :net 3) (trash card))}]}

   "Running Interference"
   {:prompt "Choose a server" :choices (req servers) :effect (effect (run target))}

   "Ryon Knight"
   {:abilities [{:msg "do 1 brain damage" :req (req (and this-server (zero? (:click runner))))

    :abilities [{:cost [:click 4] :msg "give the Corp 1 bad publicity"
                 :effect (effect (gain :corp :bad-publicity 1) (trash card))}]}

   "Kate \"Mac\" McCaffrey: Digital Tinker"
   {:effect (effect (gain :link 1))
    :events {:pre-install {:once :per-turn
                           :req (req (some #(= % (:type target)) '("Hardware" "Program")))
                           :effect (effect (install-cost-bonus -1))}}}

   "Kati Jones"
   {:abilities
    [{:cost [:click 1] :msg "store 3 [Credits]" :once :per-turn
