[easy] sum of digits - tcl