external unsafe_get_uint31 : string -> int -> int =
      "caml_extunix_get_bu31"