set x 5
incr x
return $x