TCL sample code