cleanup.tcl