add tcl script