    "Box-E"
    {:effect (effect (gain :memory 2 :max-hand-size 2))
     :leave-play (effect (lose :memory 2 :max-hand-size 2))}
+
+   "Bifrost Array"
+   {:req (req (not (empty? (filter #(not= (:title %) "Bifrost Array") (:scored corp)))))
+    :msg (msg "trigger the score ability on " (:title target))
+    :prompt "Choose an agenda to trigger"
+    :choices (req (filter #(not= (:title %) "Bifrost Array") (:scored corp)))
+    :effect (effect (card-init target))}
 
    "Breaking News"
    {:effect (effect (gain :runner :tag 2)) :msg "give the Runner 2 tags"

                    (move target :hand) (shuffle! :deck))
    :choices (req (filter #(has? % :subtype "Icebreaker") (:deck runner)))}

   "Steelskin"
   {:effect (effect (draw 3))}


   {:events {:runner-spent-click {:req (req (not (= (:server run) (:zone card)))) :once :per-turn
                                  :msg "gain 2 [Credits]" :effect (effect (gain :corp :credit 2))}}}

   "Superior Cyberwalls"
   {:effect (effect (gain :credit
                          (reduce (fn [c server]
                                    (+ c (count (filter (fn [ice] (and (has? ice :subtype "Barrier")
                                                                      (:rezzed ice))) (:ices server)))))
                                  0 (flatten (seq (:servers corp))))))}
   
   "Sure Gamble"
   {:effect (effect (gain :credit 9))}

