(call-with-input-file "some-large-file"
  (lambda (file)
    (print (lazy-ref 400000 (input-port->lazy-seq file read-line)))))