puts "zero
[set a {one
two
three
four
five
six
seven
eight
nine}]
ten
eleven
twelve"
[set f foreach] t "thir four [set b {fif six seven eigh nine}]" {puts ${t}teen}
$f x "twen thir for $b" {puts [append x ty]
$f y $a {puts $x\ $y}}
puts one\ hundred
Note that non-ascii characters in the above source code will be escaped (such as \x9f).