свой интерпретатор перезаписи строк на tcl