Codes samples using TCL language