search.tcl