怎么用tcl语言中的for循环生成一个list

如何用tcl语言中的for循环生成一个list?
假如我有一个数$num, 用一个for循环如何生成一个list,满足这样的要求：

如果 $num 为2，则list 为{1 1 2}
如果 $num 为3，则list 为{1 1 1 3}
如果 $num 为4，则list 为{1 1 1 1 4},依次类推。

请各位帮忙

------解决方案--------------------------------------------------------

set mylist {}

for {set i 0} {$i < $num} {incr i} {
lappend mylist 1
}

lappend mylist $num