puts "OK" set yy [expr $noval+3] puts "OK"