let vc = fun (poussoir_mono:int ref) (reglages:int array) ->
 poussoir_mono := ( succ !poussoir_mono ) mod Data.modulo_vibrato_mono ;
 reglages.(33) <- !poussoir_mono ;
 aux Data.adresse_etat_clavier 180 !poussoir_mono ;
 let chaine = match !poussoir_mono with
 | 0 -> "son mono droit"
 | 1 -> "vibrato mono 1"
 | 2 -> "chorus mono 1"
 | 3 -> "vibrato mono 2"
 | 4 -> "chorus mono 2"
 | 5 -> "vibrato mono 3"
 | _ -> "chorus mono 3" in
 prerr_endline ( ( pourcent_cpu () ) ^ chaine )