sig
  type ogg
  val callbacks : Ogg_flac.Encoder.ogg Flac.Encoder.callbacks
  val create :
    ?comments:(string * string) list ->
    Flac.Encoder.params ->
    Ogg.Stream.stream ->
    Ogg_flac.Encoder.ogg Flac.Encoder.t * Ogg.Stream.packet *
    Ogg.Stream.packet list
  val finish : Ogg_flac.Encoder.ogg Flac.Encoder.t -> unit
end