let lexer s =
              Lexer.from_string ~quotations: !Camlp4_config.quotations Loc.
                ghost s