anchor.diff:      Mem.
   mem(Type) ->
       orddict:fetch(Type,mem()).
  +
  +key2pos(current) ->
  +    ?CURRENT_POS;
  +key2pos(max) ->
  +    ?MAX_POS.
  
positive.code: %%
  %% Do note that values for `lmbcs' and `smbcs' are going to be rounded up
  %% to the next power of two when configuring them.
  -spec average_sizes() -> [{allocator(), [{Key,Val}]}] when
      Key :: mbcs | sbcs,
      Val :: number().
  average_sizes() ->
      Dict = lists:foldl(fun({{Instance,_},Props},Dict0) ->
        LS = proplists:get_value(sbcs, Props),
        CarSbcs = element(?CURRENT_POS, lists:keyfind(carriers,1,LS)),
        SizeSbcs = element(?CURRENT_POS, lists:keyfind(carriers_size,1,LS)),
        LM = proplists:get_value(mbcs,Props),
        CarMbcs = element(?CURRENT_POS, lists:keyfind(carriers,1,LM)),
        SizeMbcs = element(?CURRENT_POS, lists:keyfind(carriers_size,1,LM)),
        Dict1 = dict:update_counter({Instance,sbcs,count},CarSbcs,Dict0),
        Dict2 = dict:update_counter({Instance,sbcs,size},SizeSbcs,Dict1),
        Dict3 = dict:update_counter({Instance,mbcs,count},CarMbcs,Dict2),
  
negative.code: %% carriers.
  -spec fragmentation(current | max) -> [allocdata([{atom(), term()}])].
  fragmentation(Keyword) ->
      Pos = key2pos(Keyword),
      WeighedData = [begin
        LS = proplists:get_value(sbcs, Props),
        BlockSbcs = element(Pos, lists:keyfind(blocks_size,1,LS)),
  