Added Tcl solution.