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