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

(defn connect [nick host port]
  (let [sock (new Socket host port)
        out (new PrintWriter (. sock getOutputStream) true)
        in (new BufferedReader (new InputStreamReader (. sock getInputStream)))]
    (loop [msg ""]
      (if (. sock isConnected)
        (do
          (println msg)
          (recur (. in readLine)))
        (false)))))

(connect "Clojjy" "irc.strictfp.com" 6667)