external int31_to_host : int -> int = "caml_extunix_be31toh_signed"