(define read-from-file
  (lambda (file)
    (let ([p (open-input-file file)])
      (let f ([x (read p)])
	(if (eof-object? x)
	    (close-port p)
	    (begin (write x)
		   (newline)
		   (newline)
		   (f (read p))))))))