external create : int ‑> 'a ‑> 'a array = "caml_make_vect"
external get : 'a array ‑> int ‑> 'a = "%array_safe_get"
external length : 'a array ‑> int = "%array_length"
external set : 'a array ‑> int ‑> 'a ‑> unit = "%array_safe_set"
external unsafe_get : 'a array ‑> int ‑> 'a = "%array_unsafe_get"
external unsafe_set : 'a array ‑> int ‑> 'a ‑> unit = "%array_unsafe_set"