set x {a b c}
global x
proc ddx {args} {
puts stdout "$args"
}
trace variable x w "ddx oke"
set x "bb"

