Page Comparison

# Legal string syntax in Tcl
set x hello
set y "hello"
set z "hello world"

set x 4
puts "He ate $x apples" ; # prints 'He ate 4 apples'

set l { He ate 4 "green apples" }
set l [list He ate 4 "green apples" ]

set x 4
puts "He ate $x apples"   ; # prints 'He ate 4 apples'
puts { He ate $x apples } ; # prints 'He ate $x apples'

set x 4
qpushbutton "Immediate" "qinformation Information $x" ; # displays '4'
qpushbutton "Delayed" { qinformation Information $x } ; # displays '5'
set x 5

set result [expr 2 + 2 ]
puts $result

set l [list 1 2 3]