external int32_from_host : int32 -> int32 = "caml_extunix_htole32"