tcl script pool