Changes to Test Script 1 between r13 and r14

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

puts [join $ret \n]

puts ""
(blank line)
puts "Page count: [countpages]"
(blank line)
return
======

Legend

     Only in r13
     Only in r14
     -->      Modified slightly between r13 and r14