external unsafe_get_int31 : string -> int -> int =
      "caml_extunix_get_bs31"