     nil))
 
 (defn zone->name [zone]
-  (or (central->name zone) 
+  (or (central->name zone)
       (remote->name zone)))
 
 (defn is-remote? [zone]

      "Archives" [:servers :archives]
      "New remote" [:servers (keyword (str "remote" (make-rid state)))]
      [:servers (->> (split server #" ") last (str "remote") keyword)])))
      
(defn gain-run-credits [state side n]
  (swap! state update-in [:runner :run-credit] + n)
  (gain state :runner :credit n))

      (min max-access accesses) accesses)))

(defn get-server-type [zone]
  (or (#{:hq :rd :archives} zone) :remote))

(defmulti access (fn [state side server] (get-server-type (first server))))
(defmulti choose-access (fn [cards server] (get-server-type (first server))))
