sig
  type timerModeEnum =
      Disabled
    | SoftwareTimer
    | HardwareTimer
    | HardwareIfAvail
  val reset : Stats.timerModeEnum -> unit
  exception NoPerfCount
  val countCalls : bool Pervasives.ref
  val has_performance_counters : unit -> bool
  val sample_pentium_perfcount_20 : unit -> int
  val sample_pentium_perfcount_10 : unit -> int
  val time : string -> ('a -> 'b) -> 'a -> 'b
  val repeattime : float -> string -> ('a -> 'b) -> 'a -> 'b
  val print : Pervasives.out_channel -> string -> unit
  val lookupTime : string -> float
  val timethis : ('a -> 'b) -> 'a -> 'b
  val lastTime : float Pervasives.ref
end