cycle

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