如何在Tcl中给出单词之间的动态变化间隔？

# 定义要显示的单词列表
set words {Hello World! Tcl is awesome.}

# 定义变量来记录当前显示的单词索引
set currentWordIndex 0

# 定义函数来更新显示的单词
proc updateWord {} {
    global words currentWordIndex

    # 获取当前要显示的单词
    set currentWord [lindex $words $currentWordIndex]

    # 打印当前单词
    puts $currentWord

    # 增加索引，循环显示单词列表
    incr currentWordIndex
    if {$currentWordIndex >= [llength $words]} {
        set currentWordIndex 0
    }
}

# 定义定时器来定期更新单词
set timer [after 1000 updateWord]

# 主循环，保持程序运行
vwait forever