edit-2.tcl