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