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