file-remove.tcl