copy n x
returns list of n copies of x
Source code:
set result {} for {set i 0} {$i<$n} {incr i} { lappend result $x } return $result