<![CDATA[
frame .f
text .f.text
pack .f.text
pack .f
set a [expr 10 == 20]
.f.text insert end "l'espressione 10==20 vale $a
"
set a [expr 10 + 20]
.f.text insert end "10 + 20 vale $a
"
set a [expr sin(3.14 / 6)]
.f.text insert end "sin(pigreco/6) = $a
"
set a 10
.f.text insert end "a + 2 vale [expr $a + 2]
"
]]>
expr.tcl