# This script is created by NSG2 beta1
# <http://wushoupong.googlepages.com/nsg>

proc getopt {argc argv} {
	global opt
        lappend optlist nn
        for {set i 0} {$i < $argc} {incr i} {
		set opt($i) [lindex $argv $i]
	}
}

getopt $argc $argv

#opt(0):