type token = Parseini.token = Newline | EOF | Section of string | Value of (string * string) val inifile : (Lexing.lexbuf -> token) -> Lexing.lexbuf -> (string * (string * string) list) list