sig
  type fabricant = Inconnu | Alesis | Arturia | M_audio | Roland
  val tout : Doc.Detect.fabricant list
  val cmp : Doc.Detect.fabricant -> Doc.Detect.fabricant -> int
  val trad : Doc.Detect.fabricant -> unit
  val ajoute :
    Doc.Detect.fabricant list ->
    Doc.Detect.fabricant list -> Doc.Detect.fabricant list
  val detect : Pervasives.in_channel -> unit
end