set x abc
puts "A simple substitution: $x\n"
 
set y [set x "def"]
puts "Remember that set returns the new value of the variable: X: $x Y: $y\n"
 
set z {[set x "This is a string within quotes within braces"]}
puts "Note the curly braces: $z\n"
puts $x
 
set a "[set x {This is a string within braces within quotes}]"
puts "See how the set is executed: $a"
puts "\$x is: $x\n"
 
set b "\[set y {This is a string within braces within quotes}]"
# Note the \ escapes the bracket, and must be doubled to be a
# literal character in double quotes
puts "Note the \\ escapes the bracket:\n \$b is: $b"
puts "\$y is: $y"
 

c2V0IHggYWJjCnB1dHMgIkEgc2ltcGxlIHN1YnN0aXR1dGlvbjogJHhcbiIKCnNldCB5IFtzZXQgeCAiZGVmIl0KcHV0cyAiUmVtZW1iZXIgdGhhdCBzZXQgcmV0dXJucyB0aGUgbmV3IHZhbHVlIG9mIHRoZSB2YXJpYWJsZTogWDogJHggWTogJHlcbiIKCnNldCB6IHtbc2V0IHggIlRoaXMgaXMgYSBzdHJpbmcgd2l0aGluIHF1b3RlcyB3aXRoaW4gYnJhY2VzIl19CnB1dHMgIk5vdGUgdGhlIGN1cmx5IGJyYWNlczogJHpcbiIKcHV0cyAkeAoKc2V0IGEgIltzZXQgeCB7VGhpcyBpcyBhIHN0cmluZyB3aXRoaW4gYnJhY2VzIHdpdGhpbiBxdW90ZXN9XSIKcHV0cyAiU2VlIGhvdyB0aGUgc2V0IGlzIGV4ZWN1dGVkOiAkYSIKcHV0cyAiXCR4IGlzOiAkeFxuIgoKc2V0IGIgIlxbc2V0IHkge1RoaXMgaXMgYSBzdHJpbmcgd2l0aGluIGJyYWNlcyB3aXRoaW4gcXVvdGVzfV0iCiMgTm90ZSB0aGUgXCBlc2NhcGVzIHRoZSBicmFja2V0LCBhbmQgbXVzdCBiZSBkb3VibGVkIHRvIGJlIGEKIyBsaXRlcmFsIGNoYXJhY3RlciBpbiBkb3VibGUgcXVvdGVzCnB1dHMgIk5vdGUgdGhlIFxcIGVzY2FwZXMgdGhlIGJyYWNrZXQ6XG4gXCRiIGlzOiAkYiIKcHV0cyAiXCR5IGlzOiAkeSIK