    "Escher"
    (let [ice-index (fn [state i] (first (keep-indexed #(when (= (:cid %2) (:cid i)) %1)
                                                       (get-in @state (cons :corp (:zone i))))))
-         eshelp (fn es [] {:prompt "Select two pieces of ice to swap positions"
+         eshelp (fn es [] {:prompt "Select two pieces of ICE to swap positions"
                            :choices {:req #(and (= (first (:zone %)) :servers) (= (:type %) "ICE")) :max 2}
                            :effect (req (if (= (count targets) 2)
                                           (let [fndx (ice-index state (first targets))

                                     :effect (effect (ice-strength-bonus -2))}
                  :pass-ice sc :run-ends sc})}

   "Singularity"
   {:prompt "Choose a server" :choices (req remotes)
    :effect (effect (run target

                                            (update-ice-strength state side fnew)
                                            (update-ice-strength state side snew)
                                            (resolve-ability state side (es) card nil))
                                          (system-msg state side "has finished rearranging ICE")))})]
     {:effect (effect (run :hq {:replace-access {:msg "rearrange installed ice"
                                                 :effect (effect (resolve-ability (eshelp) card nil))}} card))})

