module type Sequential =
  sig
    type t
    type u
    val get : t -> int -> u
    val set : t -> int -> u -> unit
  end;;

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