 
    "Closed Accounts"
    {:req (req tagged) :effect (effect (lose :runner :credit :all))}
+
+   "Code Siphon"
+   {:effect (effect (run :rd
+                      {:replace-access
+                       {:prompt "Choose a program to install"
+                        :msg (msg "Code Siphon to install " (:title target) " and take 1 tag")
+                        :choices (req (filter #(and (has? % :type "Program")
+                                                    (<= (:cost %) (:credit runner))) (:deck runner)))
+                        :effect (effect (gain :tag 1)
+                                        (runner-install target) (shuffle! :deck))}}))}
 
    "Collective Consciousness"
    {:events {:rez {:req (req (= (:type target) "ICE")) :msg "draw 1 card"

   "City Surveillance"
   {:events {:runner-turn-begins
             {:prompt "Pay 1 [Credits] or take 1 tag" :choices ["Pay 1 credit" "Take 1 tag"]
              :player :runner
              :effect (req (when-not (and (= target "Pay 1 credit") (pay state side card :credit 1))
                             (gain state side :tag 1)))}}}

   "Cloak"
   {:recurring 1}

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

   "Tollbooth"
   {:abilities [{:msg "force the runner to lose 3 [Credits]"
                 :effect (effect (lose :runner :credit 3))}
                {:msg "end the run" :effect (effect (end-run))}]}

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