add tcl cook