Changes to Test Script 1 between r1 and r2

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

Legend

     Only in r1
     Only in r2
     -->      Modified slightly between r1 and r2