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