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:
9:
10:;;; main steps
11:(begin
12: (vector-for-each (lambda (i fname)
13: (load-file fname))
14: argv))