[easy] sum of integers - tcl