(import '(java.io InputStream Reader))

(def buffer-size 8192)

(defn byte-seq [^InputStream input-stream]
  (lazy-seq
   (let [buffer (make-array Byte/TYPE buffer-size)
         size (.read input-stream buffer)]
     (when-not (= size -1)
       (lazy-cat (take size buffer)
                 (byte-seq input-stream))))))

(defn char-seq [^Reader reader]
  (lazy-seq
   (let [buffer (make-array Character/TYPE buffer-size)
         size (.read reader buffer)]
     (when-not (= size -1)
       (lazy-cat (take size buffer)
                 (char-seq reader))))))