let
query_of_string s =
Sqml_parser
.query
Sqml_lexer
.token (
Lexing
.from_string s)