type token =
  | EOF
  | Cm
  | Co
  | Dot
  | Eq
  | Hash
  | Hy
  | Lp
  | Rp
  | UN of (bool)
  | IDENT of (string)
  | STRING of (string)
  | DOTIDENT of (string)
  | INT of (int32)
  | DOTINT of (int)
  | SHAKE of (string)
  | CDTRACK
  | DSTRACK
  | NAMAE

val inifile :
  (Lexing.lexbuf  -> token) -> Lexing.lexbuf -> unit
