#! /usr/bin/scheme --script

(define (do-file file-name)
  (let ((p (if (string=? file-name "-")
               (current-input-port)
               (open-input-file file-name))))
    (do ((c (read-char p) (read-char p)))
        ((eof-object? c))
      (display c))
    (close-input-port p)))

(let ((args (if (and (pair? (cdr (command-line)))
                     (string=? (cadr (command-line)) "-u"))
                (cddr (command-line))
                (cdr (command-line)))))
  (if (null? args)
      (do-file "-")
      (do ((args args (cdr args)))
          ((null? args))
        (do-file (car args)))))