Implementation, diff -u, Tcl 8.4, v1