anchor.diff:          {ok, {[{ParseTree,_}|_], Tokens}} -> 
               if ShowParseTree ->
           	    io:format(user, "~p~n", [ParseTree]),
  -                NSql = foldi(ParseTree),
  +                {NSql, _} = foldi(ParseTree),
                   io:format(user,  "~n> " ++ NSql ++ "~n", []),
                   {ok, {[{NPTree,_}|_], NToks}} = sqlparse:parsetree(NSql),
                   try
  
positive.code: %%-----------------------------------------------------------------------------
  
  -spec fold(tuple()) -> {error, term()} | binary().
  fold(PTree) ->
      try foldi(PTree) of
          {error,_} = Error -> Error;
          Sql -> list_to_binary(string:strip(Sql))
      catch
          _:Error -> {error, Error}
      end.
  
negative.code: -ifdef(TEST).
  -include_lib("eunit/include/eunit.hrl").
  -include("sql_tests.hrl").
  
  foldi(PTree) -> foldi(PTree, fun(_,_) -> ok end, ok).
  
  %%-----------------------------------------------------------------------------
  %%                               EUnit test
  %%-----------------------------------------------------------------------------
  