#
proc sum nl {

	set s 0
	set ll [llength $nl]
	foreach n $nl {
		set s [expr $s + $n]
	}

	return $s
}
#
