let pouss_mono = fun (poussoir_mono:int ref) (reglages:int array) (indice:int) ->
 if !poussoir_mono <> 0 then
  begin
   let chaine = ref "" in
    poussoir_mono := if !poussoir_mono mod 2 = 0 then ( chaine := "chorus" ; 2 * indice ) else ( chaine := "vibrato" ; pred ( 2 * indice ) ) ;
    reglages.(33) <- !poussoir_mono ;
    aux Data.adresse_etat_clavier ( 128 + Data.poussoir_vibrato_mono_chorus ) !poussoir_mono ;
    prerr_endline ( ( pourcent_cpu () ) ^ !chaine ^ " mono " ^ ( string_of_int indice ) )
  end