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 bouton9 : int
  val bouton10 : int
  val bouton11 : int
  val bouton12 : int
  val master_volume : int
  val instru_0 : int
  val instru_1 : int
  val instru_2 : int
  val instru_3 : int
  val instru_4 : int
  val instru_5 : int
  val instru_6 : int
  val instru_7 : int
  val instru_8 : int
  val instru_9 : int
  val scrute : Pervasives.in_channel -> Pervasives.out_channel -> unit
end