copy

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

Source code:


    set result {}
    for {set i 0} {$i<$n} {incr i} {
	lappend result $x
    }
    return $result    


philg@mit.edu