Moved to [TCL programs for beginners 1-10]
set a 1