···32323333let unsafe_set_uint8 t off v = Bytes.unsafe_set t off (Char.chr v)
34343535-let unsafe_set_uint16 = Unsafe.unsafe_set_uint16
3535+external unsafe_set_uint16 : bytes -> int -> int -> unit = "%caml_bytes_set16u"
3636+ [@@noalloc]
36373738external unsafe_get_uint16 : string -> int -> int = "%caml_string_get16u"
3839 [@@noalloc]