`sig
type t = floatarray
external create : int -> Float.Array.t = "caml_floatarray_create"
external length : Float.Array.t -> int = "%floatarray_length"
external get : Float.Array.t -> int -> float = "%floatarray_safe_get"
external set : Float.Array.t -> int -> float -> unit
= "%floatarray_safe_set"
external unsafe_get : Float.Array.t -> int -> float
= "%floatarray_unsafe_get"
external unsafe_set : Float.Array.t -> int -> float -> unit
= "%floatarray_unsafe_set"
end`