hiredman

(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.)]