sig
  type t
  val make : int -> int -> Soundtouch.BPM.t
  val put_samples_ni :
    Soundtouch.BPM.t -> float array array -> int -> int -> unit
  val get_bpm : Soundtouch.BPM.t -> float
end