Tcl code examples