anchor.diff:      ?debugFmt("wwe debugging fold/5 ===> ~n RT: ~p~n", [RT]),
       RT;
   
  -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  -% patternElementChainList
  -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  -
  -fold(FType, Fun, Ctx, Lvl, {patternElementChainList, Values} = ST)
  -    when is_list(Values) ->
  +
  +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  +% patternElementChainList / propertyLookupList
  +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  +
  +fold(FType, Fun, Ctx, Lvl, {Type, Values} = ST)
  +    when Type == patternElementChainList; Type == propertyLookupList, is_list(Values) ->
       ?debugFmt("wwe debugging fold/5 ===> Start ~p~n ST: ~p~n", [Lvl, ST]),
       NewCtx = case FType of
                    top_down -> Fun(ST, Ctx);
  
positive.code:                   bottom_up -> Fun(ST, NewCtx1)
                end,
      RT = {"on " ++ Type ++ " " ++ ValueNew, NewCtx2},
      ?debugFmt("wwe debugging fold/5 ===> ~n RT: ~p~n", [RT]),
      RT;
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  % mergeActionList
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  fold(FType, Fun, Ctx, Lvl, {mergeActionList, Values} = ST)
      when is_list(Values) ->
      ?debugFmt("wwe debugging fold/5 ===> Start ~p~n ST: ~p~n", [Lvl, ST]),
      NewCtx = case FType of
                   top_down -> Fun(ST, Ctx);
                   bottom_up -> Ctx
               end,
      {ValueNew, NewCtx1} = lists:foldl(fun(F, {Acc, CtxAcc}) ->
          case F of
              {mergeAction, _, _} ->
                  ?debugFmt("wwe debugging fold/5 ===> ~n F: ~p~n", [F]),
                  {SubAcc, CtxAcc1} = fold(FType, Fun, CtxAcc, Lvl + 1, F),
                  {Acc ++ case length(Acc) of
                              0 -> [];
                              _ -> " "
                          end ++ SubAcc, CtxAcc1}
          end
                                        end,
          {[], NewCtx},
          Values),
      NewCtx2 = case FType of
                    top_down -> NewCtx1;
                    bottom_up -> Fun(ST, NewCtx1)
                end,
      RT = {ValueNew, NewCtx2},
      ?debugFmt("wwe debugging fold/5 ===> ~n RT: ~p~n", [RT]),
      RT;
  
  
negative.code:                   bottom_up -> Fun(ST, NewCtx1)
                end,
      RT = {"." ++ ValueNew ++ Addon, NewCtx2},
      ?debugFmt("wwe debugging fold/5 ===> ~n RT: ~p~n", [RT]),
      RT;
  
  