Test Script 1 r2 (See the current copy)

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