A TCL interpreter written in TCL