binfile.clj

(def file (File. "/tmp/outfile.dat"))

(def dos (-> file java.io.FileOutputStream. java.io.DataOutputStream.))

(defn write-seqs [#^java.io.DataOutputStream dos]
  (for [i (range 0 10)]
    (.writeInt dos i)))

(write-seqs dos)

(def dis (-> file java.io.FileInputStream. java.io.DataInputStream.))

(defn read-seqs [#^java.io.DataInputStream dis]
  (lazy-seq
   (try
     (cons (.readInt dis) (read-seqs dis))
     (catch java.io.EOFException e
       (.close dis)))))


(with-open [dis (-> file java.io.FileInputStream. java.io.DataInputStream.)]
  (let [s (read-seqs dis)]
    (doseq [f s]
      (println f))))