set data1 d1
set data2 [list a b c]

x.=list "
item1
[list $data1]
[list $data2]
[pwd]
"
puts stdout "4 element list built with x.=list \" (multiline) \"   syntax"
puts stdout $x


x.=list "
{[set x aaa]}
{$x}
blah
"
puts stdout "strange but possibly useful"
puts stdout $x

puts stdout "building a dict"

d@0="list "
k1
   {[pwd]}
k2
   {[info patchlevel]}

k3
   {something}
"
puts stdout "dict: $d"

puts stdout "comment test"
x="# "
testing
comments
here
"
puts stdout "x:$x"

puts stdout -done-