## some little tests
## array or list doesn't really matter for 1000 elements
## array only slightly faster
##

% for {set x 0} {$x <= 1000} {incr x} {lappend testList $x}
% time {lindex $testList 600} 1000
4 microseconds per iteration

% for {set x 0} {$x <= 1000} {incr x} {array set testArray "$x $x"}    
% time {set testArray(600)} 1000
3 microseconds per iteration