写一个tcl脚本，可以将列表里的值相加

在Tcl语言中，你可以使用内置的循环和算术操作符来实现列表元素的累加。下面是一个简单的Tcl脚本示例，它接受一个数字列表作为命令行参数，并计算它们的总和：

# 定义一个函数，接收一个列表作为参数
proc sumList {list} {
    # 初始化变量total为0
    set total 0
    
    # 使用for循环遍历列表中的每个元素
    foreach element $list {
        # 将当前元素添加到total上
        incr total [expr $element]
    }
    
    # 返回总和
    return $total
}

# 让用户输入列表，如果没有直接传参，就提示输入
if {$argc != 1} {
    puts "请输入一个逗号分隔的数字列表，例如: 1,2,3"
    set list [split [gets stdin] ,]
} else {
    set list [lrange $argv 1 end]
}

# 调用sumList函数并打印结果
puts "列表元素之和为: [sumList $list]"

你可以运行这个脚本，然后通过命令行输入列表，比如 `./script.tcl 1,2,3` 来测试。