set end [clock clicks] if {[expr $end - $start] > 1000000} { set time "[expr ($end - $start) / 1000 / 1000.]sec" } else { set time "[expr ($end - $start) / 1000.]ms" }