type token =
  | Newline
  | EOF
  | Section of (string)
  | Value of (string * string)

val inifile :
  (Lexing.lexbuf  -> token) -> Lexing.lexbuf -> (string * ((string * string) list)) list