let cmp = fun (x:fabricant) (y:fabricant) ->
 match x with
 | Inconnu ->
  begin
   match y with
   | Inconnu -> 0
   | _ -> -1
  end
 | Alesis ->
  begin
   match y with
   | Inconnu -> 1
   | Alesis -> 0
   | _ -> -1
  end
 | Arturia ->
  begin
   match y with
   | Inconnu | Alesis -> 1
   | Arturia -> 0
   | _ -> -1
  end
 | M_audio ->
  begin
   match y with
   | M_audio -> 0
   | Roland -> -1
   | _ -> 1
  end
 | Roland ->
  begin
   match y with
   | Roland -> 0
   | _ -> -1
  end