(define (read-file-stream filename)
  (let ([f (open-input-file filename)])
	(let read-loop ()
	  (define line (read-line f))
	  (print "read line")
	  (if (eof-object? line)
		  (begin
			(close-input-port f)
			stream-null)
		  (stream-cons line (read-loop))))))