(defn read-input-stream [is]
  (let [out (transient [])
        bufsize 8196
        buf (byte-array bufsize)]
    (loop []
      (let [n (.read is buf)]
        (if (pos? n)
          (do
            (println "Read" n " bytes")
            (for [i (range n)]
              (conj! out (aget buf i)))
            (recur))
          (persistent! out))))))