Changes to Test Script 1 between r8 and r9
======
set ret [list]
foreach line [split [getpage 0] \n] { --> getpage 0
set ret [linsert $ret [expr int(rand() * [llength $ret])] $line]
} --> ======
return [join $ret \n]
======
Legend
Only in r8
Only in r9 --> Modified slightly between r8 and r9