 
    "Encrypted Portals"
    {:msg (msg "gain " (reduce (fn [c server]
-                                    (+ c (count (filter (fn [ice] (and (has? ice :subtype "Code Gate")
-                                                                      (:rezzed ice))) (:ices server)))))
+                                (+ c (count (filter (fn [ice] (and (has? ice :subtype "Code Gate")
+                                                                   (:rezzed ice))) (:ices server)))))
                               0 (flatten (seq (:servers corp))))
               " [Credits]")
     :effect (effect (gain :credit
                           (reduce (fn [c server]
                                     (+ c (count (filter (fn [ice] (and (has? ice :subtype "Code Gate")
-                                                                      (:rezzed ice))) (:ices server)))))
+                                                                       (:rezzed ice))) (:ices server)))))
                                   0 (flatten (seq (:servers corp))))))}
 
    "Enhanced Vision"


   "Superior Cyberwalls"
   {:msg (msg "gain " (reduce (fn [c server]
                                    (+ c (count (filter (fn [ice] (and (has? ice :subtype "Barrier")
                                                                      (:rezzed ice))) (:ices server)))))
                              0 (flatten (seq (:servers corp))))
              " [Credits]")
    :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"


   "Scavenge"
   {:choices {:req #(= (:type %) "Program")}
    :effect
    (req (let [trashed target]
           (trash state side trashed)
           (resolve-ability
            state side
            {:prompt "Install a card from Grip or Heap?" :choices ["Grip" "Heap"]
             :effect (req (let [fr target]
                            (system-msg state side (str "trashes " (:title trashed) " to install a card from " fr))
                            (resolve-ability
                             state side
                             {:prompt "Choose a program to install"
                              :choices (req (filter #(and (= (:type %) "Program")
                                                          (<= (:cost %) (+ (:credit runner) (:cost trashed))))
                                                    ((if (= fr "Grip") :hand :discard ) runner)))
                              :effect (effect (gain :credit (min (:cost target) (:cost trashed)))
                                              (runner-install target))}
                             card nil)))}
            card nil)))}

   "Scorched Earth"
   {:req (req tagged) :effect (effect (damage :meat 4))}
