#!/usr/bin/guile -s
!#
;;; Copyright 2005 Daniel Cer (daniel.cer@cs.colorado.edu)
;;;
;;; This work is licensed under the Creative Commons Attribution-NonCommercial-
;;; ShareAlike License. To view a copy of this license, visit 
;;; http://creativecommons.org/licenses/by-nc-sa/2.5/ or send a letter to 
;;; Creative Commons, 543 Howard Street, 5th Floor, San Francisco, California, 
;;; 94105, USA.

(map (lambda (filename)
  (with-input-from-file filename (lambda () 
  (display (string-append "\n" filename ":\n"))
  (do ((input-line (read-line) (read-line))) ((eof-object? input-line))
  (display input-line) (newline)))))
(cdr (command-line)))