quit.tcl