(defn read-input-stream [is]
  (let [bufsize 8196
        buf (byte-array bufsize)]
    (loop [out ""]
      (let [n (.read is buf)]
        (if (pos? n)
          (do
            (println "Read" n " bytes")
            (recur (string/join out (apply str (take n (seq buf))))))
          out)))))