sig
  type t
  type uint = int
  external init : unit -> CL_Timer.t = "caml_CL_Timer_init"
  external delete : CL_Timer.t -> unit = "caml_CL_Timer_delete"
  external is_repeating : CL_Timer.t -> bool = "caml_CL_Timer_is_repeating"
  external get_timeout : CL_Timer.t -> CL_Timer.uint
    = "caml_CL_Timer_get_timeout"
  external start : CL_Timer.t -> timeout:CL_Timer.uint -> repeat:bool -> unit
    = "caml_CL_Timer_start" [@@noalloc]
  external stop : CL_Timer.t -> unit = "caml_CL_Timer_stop" [@@noalloc]
end