sig
  val start_time_hash : (string, float) Ext.Hashtbl.t
  val elapsed_time_hash : (string, float) Ext.Hashtbl.t
  val last_elapsed_time_hash : (string, float) Ext.Hashtbl.t
  val start : string -> unit
  val delta : string -> float
  val elapsed : string -> float
  val last_elapsed : string -> float
  val stop : string -> unit
  val clear : string -> unit
end