anchor.diff:  	Acc1;
   sqlb(Ind, Idx, _Parent, _Ch, _X='as', [#box{ind=I,name=Name}=Box|Rest]) when I==Ind -> 
   	?LOG("~n---sqlb(~p,~p,~p,~p)", [Ind, Idx, _Parent, _X]),
  -    Acc1 = [Box#box{ind=Ind, idx=Idx, name=list_to_binary([Name, " as"])}|Rest],
  +    Acc1 = [Box#box{ind=Ind, idx=Idx, collapsed=sqlb_collapse(Ind), name=list_to_binary([Name, " as"])}|Rest],
   	?LOG(" --> ~p", [Acc1]),
   	Acc1;
   sqlb(Ind, Idx, _Parent, _Ch, _X = <<"asc">>, [#box{ind=I,name=Name}=Box|Rest]) when I==Ind -> 
   	?LOG("~n---sqlb(~p,~p,~p,~p)", [Ind, Idx, _Parent, _X]),
  -	Acc1 = [Box#box{ind=Ind, idx=Idx, name=list_to_binary([Name, " asc"])}|Rest],
  +	Acc1 = [Box#box{ind=Ind, idx=Idx, collapsed=sqlb_collapse(Ind), name=list_to_binary([Name, " asc"])}|Rest],
   	?LOG(" --> ~p", [Acc1]),
   	Acc1;
   sqlb(Ind, Idx, _Parent, _Ch, _X = <<"desc">>, [#box{ind=I,name=Name}=Box|Rest]) when I==Ind -> 
   	?LOG("~n---sqlb(~p,~p,~p,~p)", [Ind, Idx, _Parent, _X]),
  -	Acc1 = [Box#box{ind=Ind, idx=Idx, name=list_to_binary([Name, " desc"])}|Rest],
  +	Acc1 = [Box#box{ind=Ind, idx=Idx, collapsed=sqlb_collapse(Ind), name=list_to_binary([Name, " desc"])}|Rest],
   	?LOG(" --> ~p", [Acc1]),
   	Acc1;
   sqlb(Ind, Idx, _Parent='as', _Ch, X, [#box{ind=I,name=Name}=Box|Rest]) when I==Ind -> 
   	?LOG("~n---sqlb(~p,~p,~p,~p)", [Ind, Idx, _Parent, X]),
  -	Acc1 = [Box#box{ind=Ind, idx=Idx, name=list_to_binary([Name, " ", X])}|Rest],
  +	Acc1 = [Box#box{ind=Ind, idx=Idx, collapsed=sqlb_collapse(Ind), name=list_to_binary([Name, " ", X])}|Rest],
   	?LOG(" --> ~p", [Acc1]),
   	Acc1;
   sqlb(Ind, Idx, _Parent, _Ch, X, Acc=[#box{ind=I}|_]) when I==Ind, is_atom(X) -> 
   	?LOG("~n---sqlb(~p,~p,~p,~p)", [Ind, Idx, _Parent, X]),
  -	Acc1 = [#box{ind=Ind, idx=Idx, name=atom_to_binary(X, utf8)}|Acc],
  +	Acc1 = [#box{ind=Ind, idx=Idx, collapsed=sqlb_collapse(Ind), name=atom_to_binary(X, utf8)}|Acc],
   	?LOG(" --> ~p", [Acc1]),
   	Acc1;
   sqlb(Ind, Idx, _Parent, _Ch, X, Acc=[#box{ind=I}|_]) when I==Ind, is_binary(X) -> 
   	?LOG("~n---sqlb(~p,~p,~p,~p)", [Ind, Idx, _Parent, X]),
  -	Acc1 = [#box{ind=Ind, idx=Idx, name=X}|Acc],
  +	Acc1 = [#box{ind=Ind, idx=Idx, collapsed=sqlb_collapse(Ind), name=X}|Acc],
   	?LOG(" --> ~p", [Acc1]),
   	Acc1;
   sqlb(Ind, Idx, Parent, Ch, X, Acc=[#box{ind=I}|_]) when I<Ind-1 -> 
   	?LOG("~n---sqlb(~p,~p,~p,~p)", [Ind, Idx, Parent, X]),
  -	Acc1 = [#box{ind=I+1, idx=Idx}|Acc],
  +	Acc1 = [#box{ind=I+1, idx=Idx, collapsed=sqlb_collapse(Ind+1)}|Acc],
   	?LOG(" --> ~p", [Acc1]),
   	sqlb(Ind, Idx, Parent, Ch, X, Acc1);
   sqlb(Ind, Idx, _Parent, _Ch, X, Acc=[#box{ind=I}|_]) when I<Ind, is_atom(X) -> 
   	?LOG("~n---sqlb(~p,~p,~p,~p)", [Ind, Idx, _Parent, X]),
  -	Acc1 = [#box{ind=Ind, idx=Idx ,name=atom_to_binary(X, utf8)}|Acc],
  +	Acc1 = [#box{ind=Ind, idx=Idx, collapsed=sqlb_collapse(Ind), name=atom_to_binary(X, utf8)}|Acc],
   	?LOG(" --> ~p", [Acc1]),
   	Acc1;
   sqlb(Ind, Idx, _Parent, _Ch, X, Acc=[#box{ind=I}|_]) when I<Ind, is_binary(X) -> 
   	?LOG("~n---sqlb(~p,~p,~p,~p)", [Ind, Idx, _Parent, X]),
  -	Acc1 = [#box{ind=Ind, idx=Idx, name=X}|Acc],
  +	Acc1 = [#box{ind=Ind, idx=Idx, collapsed=sqlb_collapse(Ind), name=X}|Acc],
   	?LOG(" --> ~p", [Acc1]),
   	Acc1;
   sqlb(_Ind, _Idx, _Parent, _Ch, _X, Acc) -> 
  
positive.code: 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)}];
  
  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]),
  
negative.code: 
  %% SQL Boxing Fun ---------------------------------------
  
  sqlb_collapse(0) -> false;
  sqlb_collapse(1) -> false;
  sqlb_collapse(_Ind) -> true.
  
  sqlb(_Ind, _Idx, _Parent, _Ch, <<>>, Acc) -> Acc;
  sqlb(_Ind, _Idx, _Parent, _Ch, 'opt', Acc) -> Acc;
  sqlb(_Ind, _Idx, _Parent, _Ch, 'list', Acc) -> Acc;
  