 
 (defn num-connections []
   (reduce + (map #(count @(:connections %)) @servers)))
+
+(defn print-stacktrace [e]
+  (.printStackTrace e (PrintStream. *outs*)))
 
 (defn validate-form []
   (println

                  (command))
                (f form))
              (catch Exception e
                (.printStackTrace e (PrintStream. outs)))))))
      0 (InetAddress/getByName "localhost"))))

(defn create [port f & commands]

        (println "cannot reload non-clojure file:" file)
        (if-let [ns (second (read-file-ns-decl (java.io.File. file)))]
          (when (find-ns ns) ;; don't reload namespaces that aren't already loaded
            (try (load-file file)
                 (catch Exception e
                   (print-stacktrace e))))
          (println "cannot reload file without namespace declaration:" file))))))

(defn exit []
