Tcl script from 1999.