cycle n xs
returns concatenated list of n copies of xs
Source code:
set result {} for {set i 0} {$i<$n} {incr i} { set result [concat $result $xs] } return $result