(import (scheme base))

(define (dump file)
  (let ((input-port (open-input-file file)))
    (let loop ()
      (unless (eof-object? (peek-char input-port))
        (display (read-line input-port))
        (loop)))))

(dump "test.scm")