int -> (int -> Synth.synth) -> Synth.Multitrack.t