module type SequentialFloat =
  sig
    type t
    val get : t -> int -> float
    val set : t -> int -> float -> unit
  end;;

module ArraySeqFloat : SequentialFloat =
  struct
    type t = float array
    let get = Array.get
    let set = Array.set
  end;;