Tcl: 두 판 사이의 차이

set numbers {1 2 3 4 5 6 7 8 9 10}

set result 0

set result [expr {$result + $number}]

}