Test Script 1

Test Script 1 r18 (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 "----"

set pageText ""
while 1 {
  set pageid [expr int(rand() * [countpages])]
  set pageText [getpage $pageid]
  if {$pageText == ""} {
    continue
  }
  puts $pageText
  break
}

return