delete-2.tcl