Example of reading java.io.InputStream in Clojure

inputstream.clj

(ns inputstream.core
  (:require [clojure.java.io :as io]))


(defn read-is [^java.io.InputStream is]
  (let [bufsize 8192
        buf (byte-array bufsize)]
    (loop [total-len 0]
      (let [n (.read is buf)]
        (cond
         (pos? n) (do
                    ;; process n bytes in buf here
                    (println "Read" n " bytes")
                    (recur (+ total-len n)))
         :else total-len)))))  ;; or whatever ret value you want


(defn proc-file [fname]
  (read-is (io/input-stream fname)))

do you maybe know how can I get sth like this?

(import  '(java.io BufferedReader InputStreamReader PrintWriter))
(println (apply max [7 5]))

(binding 
      [ 
        *in* (BufferedReader. (InputStreamReader. "1\n2\n3\n"))
        ; *out* (PrintWriter. out)
	  ]
	(println (read))
)