sig
  type file_descr
  type open_flag = O_RDONLY | O_WRONLY | O_RDWR | O_CREAT | O_TRUNC
  type file_perm = int
  type seek_command = SEEK_SET | SEEK_CUR | SEEK_END
  val openfile :
    string ->
    Vorbis.Iofile.open_flag list ->
    Vorbis.Iofile.file_perm -> Vorbis.Iofile.file_descr
  val close : Vorbis.Iofile.file_descr -> unit
  val read : Vorbis.Iofile.file_descr -> string -> int -> int -> int
  val lseek :
    Vorbis.Iofile.file_descr -> int -> Vorbis.Iofile.seek_command -> int
end