script tcl