gist:119375

(import '(java.net ServerSocket Socket)
        '(java.io PushbackReader BufferedReader
                  InputStreamReader OutputStreamWriter
                  PrintWriter))

(let [a (ServerSocket. 4445)]
  (loop []
    (let [b (.accept a)]
      (with-open [in (-> b .getInputStream InputStreamReader. BufferedReader. PushbackReader.)
              out (-> b .getOutputStream OutputStreamWriter. PrintWriter.)]
        (binding [*in* in *out* out *err* out]
          (clojure.main/repl))))
    (recur)))