let lex_string entry loc str =
                  lex entry loc (Stream.of_string str)