foo.clj

(defn chunked-line-seq
  "Returns the lines of text from rdr as a chunked[size] sequence of strings.
  rdr must implement java.io.BufferedReader."
  [#^java.io.BufferedReader rdr size]
  (lazy-seq
   (when-let [line (.readLine rdr)]
     (chunk-cons
      (let [chunk’ (chunk-buffer size)]
	(chunk-append chunk’ line)
	(dotimes [i (dec size)]
	  (when-let [line (.readLine rdr)]
	    (chunk-append chunk’ line)))
	(chunk chunk’))
      (chunked-line-seq rdr size)))))