                         :choices (req (map str (range 1 (inc (:click runner)))))
                         :effect (req (let [n (Integer/parseInt target)]
                                        (when (pay state :runner card :click n)
-                                         (trash state :corp (take n (shuffle (:hand corp)))))))}} card))}
+                                         (trash-cards state :corp (take n (shuffle (:hand corp)))))))}} card))}
 
    "Weyland Consortium: Because We Built It"
    {:recurring 1}

   "Sweeps Week"
   {:effect (effect (gain :credit (count (:hand runner))))}

   "Tennin Institute: The Secrets Within"
   {:abilities [{:msg "add 1 advancement counter on a card" :choices {}
                 :req (req (not (:successful-run runner-reg))) :once :per-turn

   {:recurring 1}

   "Clone Chip"
   {: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))}]}
