* improve Tcl program.

Tcl supports bare string.