sig
  module Reader :
    sig
      class type t =
        object
          method close : unit
          method read : int -> MIDI.Multitrack.buffer -> int -> int -> int
        end
      class of_file : string -> t
    end
  module Writer :
    sig
      class type t =
        object
          method advance : int -> unit
          method close : unit
          method note_off : int -> int -> float -> unit
          method note_on : int -> int -> float -> unit
          method put : int -> MIDI.event -> unit
        end
      class to_file : int -> ?tracks:int -> string -> t
    end
end