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