Test Script 1 r7 (See the current copy)

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