functor (Io : Iofile->
  sig
    val get_comments : string -> string * (string * string) array
    val get_info : string -> Vorbis.info
    val get_heuristical_info : string -> Vorbis.info
    val file_size : string -> int
  end