cycle

one of the documented procedures in this installation of the ACS
Usage:
cycle   n   xs
What it does:
returns concatenated list of n copies of xs
Defined in: /web/philip/tcl/ad-functional.tcl

Source code:


    set result {}
    for {set i 0} {$i<$n} {incr i} {
	set result [concat $result $xs]
    }
    return $result    


philg@mit.edu