external set : string ‑> int ‑> char ‑> unit = "%bytes_safe_set"
external unsafe_set : string ‑> int ‑> char ‑> unit = "%bytes_unsafe_set"