sig
  val decoder_samplerate : int Pervasives.ref
  val register : unit -> unit
end