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 end