procedure-delete-2.tcl