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

eval $a