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:(define count-words
  16:  (lambda (wordlist)
  17:    (for-each (lambda (word)
  18:                (printf "~a\n" word))
  19:              wordlist)))
  20:
  21:
  22:;;; main steps
  23:(begin 
  24:  (vector-for-each (lambda (i fname)
  25:                     (count-words (string-tokenize (load-file fname))))
  26:                   argv))