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 : in_channel -> unit
end