How To Remove Last Character In String In Tcl