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