An example file reading script with chicken scheme

read-file.scm

#!/usr/bin/env csi -ss

;; An example file reading script with chicken scheme

(use extras)

(define (read-it file)
  (let ((fh (open-input-file file)))
     (let loop((c (read-line fh)))
        (if (eof-object? c)
          (close-input-port fh)
          (begin
            (print c)
            (loop (read-line fh)))))))

(define (main args)
  (define file (if (null? args) '() (car args)))
  (if (null? file)
    (display "Please supply a file name to read!\n")
    (read-it file)))

Another alternative can be:

(define path "/path/to/file")

(with-input-from-file path 
  (lambda () 
    (let loop ((line (read-line)) 
               (count 0)) 
      (if (eof-object? line) 
        count 
        (begin 
          (display line) 
          (newline) 
          (loop (read-line) (+ count 1)))))))

Also see:

• Stackoverflow: "Reading from file, using Scheme"