"(import (scheme base)"
"        (chicken pretty-print))"
"\n(define (dump file)"
"  (let ((input-port (open-input-file file)))"
"    (let loop ()"
"      (unless (eof-object? (peek-char input-port))"
"        (pp (read-line input-port))"
"        (loop)))))"
"\n(dump \"test2.scm\")"