(import (scheme base) (scheme file) (scheme write))
(define (main)
  (call-with-input-file
    "some-file.txt"
    (lambda (port)
      (display "Hello, world!\n"))))