Test Script 1 r12 (See the current copy)
puts ""
puts ""
puts "This is a test"
set ret [list]
foreach line [split [getpage 0] \n] {
set ret [linsert $ret [expr int(rand() * [llength $ret])] $line]
}
return [join $ret \n]puts ""
puts ""
puts "This is a test"
set ret [list]
foreach line [split [getpage 0] \n] {
set ret [linsert $ret [expr int(rand() * [llength $ret])] $line]
}
return [join $ret \n]