external compute : unit -> unit = "caml_compute"