let trad = function (x:fabricant) ->
 let chaine = match x with
  | Alesis -> "alesis"
  | Arturia -> "arturia"
  | M_audio -> "m_audio"
  | Roland -> "roland"
  | _ -> "" in
  print_string chaine ;
  print_newline ()