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)))

A chicken 5 version on linux (env -S)

#!/usr/bin/env -S csi -ss

;; An example file reading script with chicken scheme

(import scheme (chicken io))

(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)
  (let ([file (if (null? args) '() (car args))])
    (if (null? file)
        (display "Please supply a file name to read!\n")
        (read-it file))))

@markjfisher : A belated thank you for the chicken 5 update!