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: