":"; exec mzscheme -r $0 "$@"

;;; fileio1.ss
;;; (C) 2006 by Damir Cavar
;;; Read filenames from command line arguments

(define (read-all path)
      (call-with-input-file path
        (lambda (p)
          (read-string (file-size path) p))))

(let loop ((0))
  (unless (>= i (vector-length argv))
    (let ((text (read-all (vector-ref argv i))))
      (printf text))
    (loop (+ i 1))))