anchor.diff:                       % Histogram
                        _LoadData3 = divide2(LoadData2)
                end
  -         end
  -    || LoadData <- state_get(load_data_list, State)],
  +         end || LoadData <- state_get(load_data_list, State)],
   
       State1 = state_set(load_data_list, LoadDataNew, State),
   
       % Averages ring data
  -    RingData1 = state_get(ring_data, State1),
  -    RingData2 = lists:foldl(Fun, RingData1, [size_inv, avg_kr]),
  +    RingData1 = divide2(size_inv, state_get(ring_data, State1)),
  +    RingData2 = divide2(avg_kr, RingData1),
   
       State2 = state_set(ring_data, RingData2, State1),
   
  
positive.code: %%      load_data of self accordingly.
  -spec prepare_data([atom()], state()) -> {{load_data_list(), ring_data()}, state()}.
  prepare_data(SkippedModules, State) ->
      % Averages
      Fun = fun (AvgType, MyData) -> divide2(AvgType, MyData) end,
      LoadDataNew =
          [begin
               case lists:member(data_get(name, LoadData), SkippedModules) of
                    true -> LoadData;
                    false ->
                       LoadData2 = lists:foldl(Fun, LoadData, [avg, avg2]),
  
                       % Min and Max
                       do_nothing,
  
negative.code:                   false ->
                       ?ASSERT(data_get(name, MyLoad1) =:= data_get(name, OtherLoad)),
                       % Averages load
                       MyLoad2 = merge_avg(avg, MyLoad1, OtherLoad),
                       MyLoad3 = merge_avg(avg2, MyLoad2, OtherLoad),
  
                       % Min
                       MyMin = data_get(min, MyLoad2),
                       OtherMin = data_get(min, OtherLoad),
                       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),
                       MyLoad5 =
                           if  MyMax =< OtherMax -> data_set(max, OtherMax, MyLoad4);
                               MyMax > OtherMax -> data_set(max, MyMax, MyLoad4)
                           end,
  
                       % Histogram
                       _MyLoad5 = merge_histo(MyLoad5, OtherLoad)
               end
           end || {MyLoad1, OtherLoad} <- lists:zip(MyLoadList, OtherLoadList)],
  
  