sig
  type t
  val create : (int -> string * int) -> Ogg.Sync.t
  val create_from_file : string -> Ogg.Sync.t * Unix.file_descr
  val read : Ogg.Sync.t -> Ogg.Page.t
  val reset : ?read_func:(int -> string * int) -> Ogg.Sync.t -> unit
  val seek : Ogg.Sync.t -> Ogg.Page.t
end