请用tcl语言写一个计时

以下是使用TCL语言实现计时器的示例代码：

set seconds 0
while {1} {
    incr seconds
    puts "Time elapsed: $seconds seconds"
    after 1000 ;# 1000 milliseconds = 1 second
}

这个程序将在命令行界面上输出每秒增加的秒数。可以通过按下Ctrl + C来停止计时器。