local.tcl

set x 21
proc yahya {} {

global x
set x 45
puts "hello $x"

}

puts $x

yahya

puts $x