RosettaCodeData/Task/Unicode-variable-names/Tcl/unicode-variable-names.tcl

set Δx 1
incr Δx
puts [set Δx]
puts ${Δx}