set a [list pust hi;\
set b 33;\
puts [expr $b*7]]

eval $a