Test Script 1

Test Script 1 r15 (See the current copy)

set ret [list]
foreach line [split [getpage 0] \n] {
    set ret [linsert $ret [expr int(rand() * [llength $ret])] $line]
}

puts [join $ret \n]

puts ""

puts "Page count: [countpages]"

puts "@include [expr int(rand() * [countpages])]"

return