anchor.diff:  sqlb(_Ind, _Idx, opt, <<>>, B, Acc) when is_binary(B) -> Acc;
   
   sqlb(Ind, Idx, _Parent, _Ch, A, []) ->
  -    [#box{ind=Ind, idx=Idx, name=atom_to_binary(A, utf8)}];
  +    [#box{ind=Ind, idx=Idx, collapsed=sqlb_collapse(Ind), name=atom_to_binary(A, utf8)}];
   
   sqlb(Ind, _Idx, _Parent, _Ch, _X='%ret%', Acc=[#box{ind=I}|_]) when I<Ind ->
   	?LOG("~n---sqlb(~p,~p,~p,~p)", [Ind, _Idx, _Parent, _X]),
  
positive.code: 
  %% SQL Boxing Fun ---------------------------------------
  
  sqlb(_Ind, _Idx, _Parent, _Ch, <<>>, Acc) -> Acc;
  sqlb(_Ind, _Idx, _Parent, _Ch, 'opt', Acc) -> Acc;
  sqlb(_Ind, _Idx, _Parent, _Ch, 'list', Acc) -> Acc;
  
negative.code: 
  -export([box_tree/1]).
  
  -include_lib("eunit/include/eunit.hrl").
  
  -include("sql_tests.hrl").
  
  
  %% -define(logf, ok).
  -ifdef(logf).
  -define(LOG(F, A), io:format(user, "{~p,~p}:"++F, [?MODULE,?LINE] ++ A)).
  
  