    {:recurring 1}
 
    "Clone Chip"
-   {:abilities [{:prompt "Choose a program to install" :msg (msg "installs " (:title target))
+   {:abilities [{:prompt "Choose a program to install" :msg (msg "install " (:title target))
                  :choices (req (filter #(and (has? % :type "Program")
                                              (<= (:cost %) (:credit runner))) (:discard runner)))
                  :effect (effect (trash card) (runner-install target))}]}

                 :effect (effect (trash target) (gain :credit 4))}]}

   "Self-modifying Code"
   {:abilities [{:prompt "Choose a program to install" :msg (msg "installs " (:title target))
                 :choices (req (filter #(and (has? % :type "Program")
                                             (<= (:cost %) (- (:credit runner) 2))) (:deck runner)))
                 :cost [:credit 2]

                        :choices (req (map str (range 1 (inc (:click runner)))))
                        :effect (req (let [n (Integer/parseInt target)]
                                       (when (pay state :runner card :click n)
                                         (trash-cards state :corp (take n (shuffle (:hand corp)))))))}} card))}

   "Weyland Consortium: Because We Built It"
   {:recurring 1}
