set x { puts a{b puts x{y puts stderr {test etc} #}} } puts here # a comment\ etc blah\ ok then puts there puts "first curly {" proc test {} { puts "a curly {" puts "close curly }" } test puts done puts [list a b ]