# a nice idea, but not needed
function options(opt,str,    n,tmp,i) {
	n=split(str,tmp," ")
	for(i=1;i<=n;i+=2) 
		opt[tmp[i]] = tmp[i+1]
	for(i=1; i<ARGC; i+= 2 ) 
		if (ARGV[i] in opt) 
			opt[ARGV[i]] = ARGV[i+1] 
		else 
			print "["a[i]"]: unknown" > "/dev/stderr" 
}