#! /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)))))