add1 set a 10 set b 15 proc add1 {} { global a b set value [expr $a+$b] puts "value = $value" }
add2 10 20 proc add2 {p q} { global ns set result [expr $p*$q] puts "result=$result" }