Mirror from tclbench @ core.tcl.tk - View it on GitHub