sig
  class type t =
    object
      method close : unit
      method read : int -> MIDI.Multitrack.buffer -> int -> int -> int
    end
  class of_file : string -> t
end