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