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