sig
  type uint = int
  external sleep : millis:int -> unit = "caml_CL_System_sleep" [@@noalloc]
  external get_time : unit -> CL_System.uint = "caml_CL_System_get_time"
    [@@noalloc]
  external get_num_cores : unit -> int = "caml_CL_System_get_num_cores"
    [@@noalloc]
end