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