sig
  val masque_entete : int
  val numero_de_canal : int
  val touche_relachee : int
  val touche_appuyee : int
  val mode : int
  val instru : int
  val pitch : int
  val sys : int
  val bank_select : int
  val modulation : int
  val swell : int
  val sustain_pedal : int
  val message_vide : int
  val canal_vide : int
  val bouton1 : int
  val bouton2 : int
  val bouton3 : int
  val bouton4 : int
  val bouton5 : int
  val bouton6 : int
  val bouton7 : int
  val bouton8 : int
  val pad_1 : int
  val pad_2 : int
  val pad_3 : int
  val pad_4 : int
  val pad_5 : int
  val pad_6 : int
  val pad_7 : int
  val pad_8 : int
  val pad_9 : int
  val pad_10 : int
  val pad_11 : int
  val pad_12 : int
  val pad_13 : int
  val pad_14 : int
  val pad_15 : int
  val pad_16 : int
  val scrute : Pervasives.in_channel -> Pervasives.out_channel -> unit
end