let lex_error lexbuf s =
    raise (Error (loc lexbuf, "lexical error, " ^ s))