Test Script 1 r6 (See the current copy)

set ret [list]
foreach line [split [getpage 0] \n] {
    lappend ret " = $line = "
}
return $ret