functor (C : Type_clavier->
  sig
    val masque_entete : int
    val numero_de_canal : int
    val touche_relachee : int
    val touche_appuyee : int
    val poly_press : int
    val mode : int
    val instru : int
    val can_press : int
    val pitch : int
    val pitch_mot_vide : int
    val sys : int
    val modulation : int
    val swell : int
    val sustain_pedal : int
    val all_notes_off : unit -> unit
    val scrute : Pervasives.in_channel -> unit
  end