anchor.diff:                  {ok, {ParseTrees, _}} ->
                       case ptlist_to_string(ParseTrees) of
                           {error, Reason} ->
  -                            ?Info("parse_stmt error in fold ~p~n", [Reason]),
  +                            ?Error("parse_stmt error in fold ~p~n", [Reason]),
                               ReasonBin = iolist_to_binary(io_lib:format("Error parsing the sql: ~p", [Reason])),
                               From ! {reply, jsx:encode([{<<"parse_stmt">>, [{<<"error">>, ReasonBin}, {<<"flat">>, list_to_binary(Sql)}]}])};
                           {multiple, _Flat, FirstPT} ->
  
positive.code: process_cmd({[<<"parse_stmt">>], ReqBody}, _Adapter, _Sess, _UserId, From, _Priv) ->
      [{<<"parse_stmt">>,BodyJson}] = ReqBody,
      Sql = string:strip(binary_to_list(proplists:get_value(<<"qstr">>, BodyJson, <<>>))),
      ?Info("parsing ~p", [Sql]),
      if
          Sql =:= [] ->
              From ! {reply, jsx:encode([{<<"parse_stmt">>, [{<<"error">>, <<"Empty sql string">>}, {<<"flat">>, <<>>}]}])};
  
negative.code:                                 _ ->
                                      ParseStmt = jsx:encode([{<<"parse_stmt">>, [{<<"sqlTitle">>, SqlTitle}, BoxTuple, PrettyTuple, FlatTuple]}])
                              end,
                              From ! {reply, ParseStmt};
                          Flat ->
                              [{ParseTree, _} | _] = ParseTrees,
  