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