delete-branch.tcl