sig
  type decoder
  type t
  val check : Ogg.Stream.packet -> bool
  val create : unit -> Theora.Decoder.decoder
  val headerin :
    Theora.Decoder.decoder ->
    Ogg.Stream.packet ->
    Theora.Decoder.t * Theora.info * string * (string * string) list
  val get_yuv : Theora.Decoder.t -> Ogg.Stream.t -> Theora.yuv_buffer
  val frames_of_granulepos : Theora.Decoder.t -> Int64.t -> Int64.t
end