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 notepad : int
  val scrute : Pervasives.in_channel -> Pervasives.out_channel -> unit
end