external uint16_to_host : int -> int = "caml_extunix_be16toh" "noalloc"