如何用tcl语言中的for循环生成一个list?

[daikeyang]

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

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

请各位帮忙，先谢谢大家了