int -> ?tracks:int -> string -> MIDI.IO.Writer.t