type token =
  | EOF
  | Co
  | Cm
  | Pt
  | AND
  | BY
  | END
  | FOR
  | FROM
  | GAME
  | INHERITS
  | KEY
  | NO
  | NONE
  | SEENS
  | USING
  | WITH
  | IDENT of (string)
  | STRING of (string)
  | INTEGER of (int)

val parse :
  (Lexing.lexbuf  -> token) -> Lexing.lexbuf -> GameTypes.game_t list
