modified:   measure/math.tcl