gistfile1.clj

(defn read-bytes [is n]
  (let [buf (make-array Byte/TYPE n)]
    (loop [to-read n]
      (let [bytes-read (.read is buf (- (count buf) to-read) to-read)]
        (if (> to-read bytes-read 0)
          (recur (- (count buf) bytes-read))
          (seq buf))))))