Tcl solution.