exception Error of int * int * string val lex : (string * string) Token.glexer