sig
  type t = MIDI.buffer array
  type buffer = MIDI.Multitrack.t
  val channels : MIDI.Multitrack.buffer -> int
  val duration : MIDI.Multitrack.buffer -> int
  val create : int -> int -> MIDI.Multitrack.buffer
  val clear : ?channel:int -> MIDI.Multitrack.buffer -> int -> int -> unit
end