#
proc avg nl {

	set s 0
	set ll [llength $nl]
	foreach n $nl {
		set s [expr $s + $n]
	}
	return [expr $s/double($ll)]
}
#
