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