#
proc mean nl {

	eval set max \[max $nl\]
	eval set min \[min $nl\]
	return [expr $min + ($max - $min) / 2.0]
}
#
