1:":"; exec mzscheme -r $0 "$@"
   2:
   3:;;; CommandLine1.scm
   4:;;; (C) 2006 by Damir Cavar
   5:;;; Command line arguments
   6:
   7:;;; read command line arguments and print them line by line
   8:
   9:(let loop ((i 0))
  10:  (unless (>= i (vector-length argv))
  11:    (printf "argument: ~a\n" (vector-ref argv i))
  12:    (loop (+ i 1))))
  13: