external int16_from_host : int -> int = "caml_extunix_htole16_signed"