external unsafe_set_uint31 : string -> int -> int -> unit =
      "caml_extunix_set_h31"