(defun dot () (point))

(defun echo-file ()
  "Run this in batch mode to test streaming through emacs."
    (interactive)
    (while (not (eobp))
      (progn
	(setq d (dot))
	(end-of-line)
	(message "%s" (buffer-substring d (dot)))
	(beginning-of-line)
	(forward-line 1)
      )
    )
)