Online TCL Compiler
										
										
set x 25
set y 40
set z [expr $x + $y]

puts "Sum of x +y =  $z"
                                
                                

Output Results

										
Sum of x +y =  65