anchor.diff:                    false ->
                        ?ASSERT(data_get(name, MyLoad1) =:= data_get(name, OtherLoad)),
                        % Averages load
  -                     Fun = fun (AvgType, MyData) -> merge_avg(AvgType, MyData, OtherLoad) end,
  -                     MyLoad2 = lists:foldl(Fun, MyLoad1, [avg, avg2]),
  +                     MyLoad2 = merge_avg(avg, MyLoad1, OtherLoad),
  +                     MyLoad3 = merge_avg(avg2, MyLoad2, OtherLoad),
   
                        % Min
                        MyMin = data_get(min, MyLoad2),
                        OtherMin = data_get(min, OtherLoad),
  -                     MyLoad3 =
  -                         if  MyMin =< OtherMin -> data_set(min, MyMin, MyLoad2);
  -                             MyMin > OtherMin -> data_set(min, OtherMin, MyLoad2)
  +                     MyLoad4 =
  +                         if  MyMin =< OtherMin -> data_set(min, MyMin, MyLoad3);
  +                             MyMin > OtherMin -> data_set(min, OtherMin, MyLoad3)
                            end,
   
                        % Max
                        MyMax = data_get(max, MyLoad3),
                        OtherMax = data_get(max, OtherLoad),
  -                     MyLoad4 =
  -                         if  MyMax =< OtherMax -> data_set(max, OtherMax, MyLoad3);
  -                             MyMax > OtherMax -> data_set(max, MyMax, MyLoad3)
  +                     MyLoad5 =
  +                         if  MyMax =< OtherMax -> data_set(max, OtherMax, MyLoad4);
  +                             MyMax > OtherMax -> data_set(max, MyMax, MyLoad4)
                            end,
   
                        % Histogram
  -                     _MyLoad5 = merge_histo(MyLoad4, OtherLoad)
  +                     _MyLoad5 = merge_histo(MyLoad5, OtherLoad)
                end
            end || {MyLoad1, OtherLoad} <- lists:zip(MyLoadList, OtherLoadList)],
   
  
positive.code: 
      %% Averages ring
      MyRing1 = state_get(ring_data, State1),
      Fun2 = fun (AvgType, MyData) -> merge_avg(AvgType, MyData, OtherRing) end,
      MyRing2 = lists:foldl(Fun2, MyRing1, [size_inv, avg_kr]),
      State2 = state_set(ring_data, MyRing2, State1),
  
      NewData = {LoadDataListNew, MyRing2},
      State4 = case Update of
          update ->
              State3 = state_update(merged, fun inc/1, State2),
  
negative.code:                      % Histogram
                       _LoadData3 = divide2(LoadData2)
               end
           end || LoadData <- state_get(load_data_list, State)],
  
      State1 = state_set(load_data_list, LoadDataNew, State),
  
      % Averages ring data
      RingData1 = divide2(size_inv, state_get(ring_data, State1)),
      RingData2 = divide2(avg_kr, RingData1),
  
      State2 = state_set(ring_data, RingData2, State1),
  
  