Tcl scripting examples for beginners