punkshell/scriptlib/tests/linetest.tcl

set x [list \
a b c\
d e f\
]
puts stdout $x

if {[catch {

y.=list\
a b c\
d e f

} errmsg]} {
    puts stderr "error: $errmsg"
} else {
    puts stdout $y
}