Test Script 1 r1 (See the current copy)

set ret [list] for {set i 0} {$i < 100} {incr i} {

    lappend ret $i

} return $ret