open Printf let ulps iterations = let starttime = Unix.gettimeofday () in begin for i = 1 to iterations do () (* something useless *) done; let endtime = Unix.gettimeofday () in int_of_float ((float_of_int iterations) /. (endtime -. starttime)) end let _ = printf "%d megaulps\n" ((ulps 10000000) / 1000000)