            (or (get-in @state [:bonus :breaker-strength]) 0)))))
 
 (defn update-breaker-strength [state side breaker]
-  ;(.println System/out (pr-str breaker))
   (let [breaker (get-card state breaker) oldstren (or (:current-strength breaker) (:strength breaker))]
-    ;(.println System/out (pr-str "AFTER " breaker))
     (swap! state update-in [:bonus] dissoc :breaker-strength)
     (trigger-event state side :pre-breaker-strength breaker)
     (update! state side (assoc breaker :current-strength (breaker-strength state side breaker)))
-    ;(.println System/out (pr-str "AFTER222 " (get-card state breaker)))
     (trigger-event state side :breaker-strength-changed (get-card state breaker) oldstren)))
 
 (defn pump

(defn trash-cards [state side cards]
  (doseq [c cards] (trash state side c)))

(defn breaker-strength-bonus [state side n]
  (swap! state update-in [:bonus :breaker-strength] (fnil #(+ % n) 0)))

(defn breaker-strength [state side {:keys [strength] :as card}]
  ;(.println System/out (str (:title card) " strength " strength "; encounter " (get-in card [:pump :encounter])
  ;                          "all-run " (get-in card [:pump :all-run])
  ;                          "bonus " (get-in @state [:bonus :breaker-strength])))
  (if (nil? strength)
    nil
    (-> (if-let [strfun (:strength-bonus (card-def card))]

            (trigger-event state side :successful-run-ends (first server)))
          (when (get-in @state [:run :unsuccessful])
            (trigger-event state side :unsuccessful-run-ends (first server)))
          (doseq [p (filter #(has? % :subtype "Icebreaker") (all-installed state :runner))]
            (update! state side (update-in (get-card state p) [:pump] dissoc :all-run))
            (update! state side (update-in (get-card state p) [:pump] dissoc :encounter ))
            (update-breaker-strength state side p))
          (let [run-effect (get-in @state [:run :run-effect])]
            (when-let [end-run-effect (:end-run run-effect)]
              (resolve-ability state side end-run-effect (:card run-effect) [(first server)]))))
