1:":"; exec mzscheme -r $0 "$@"
   2:
   3:(require (lib "vector-lib.ss" "srfi" "43"))
   4:
   5:(define load-file
   6:  (lambda (fname)
   7:    (printf "Loading file: ~a\n" fname)
   8:    (call-with-input-file fname
   9:      (lambda (p)
  10:        (read-string (file-size fname) p)))))
  11:
  12:
  13:;;; main steps
  14:(begin 
  15:  (vector-for-each (lambda (i fname)
  16:                     (printf "~a\n" (load-file fname)))
  17:                   argv))