anchor.diff:                 size = Size,
                  hfs = Hfs,
                  items_count = NumItems } = Bloom) -> 
  -    HCount = apply(element(1, Hfs), size, [Hfs]),
  +    HCount = ?REP_HFS:size(Hfs),
       [{filter_bit_size, Size},
        {struct_byte_size, byte_size(term_to_binary(Bloom))},
        {hash_fun_num, HCount},
  
positive.code: 
  -spec get_property(bloom_filter_t(), atom()) -> not_found | term().
  get_property(#bloom{ size = Size, hfs = Hfs, items_count = NumItems }, fpr) ->
      calc_FPR(Size, NumItems, apply(element(1, Hfs), size, [Hfs]));
  get_property(Bloom, Property) ->
      FieldNames = record_info(fields, bloom),
      {_, N} = lists:foldl(fun(I, {Nr, Res}) -> case I =:= Property of
  
negative.code: 
  % faster than lists:foldl
  p_add_list(Hfs, BFSize, Acc, [Item | Items]) ->
      Pos = ?REP_HFS:apply_val_rem(Hfs, Item, BFSize),
      p_add_list(Hfs, BFSize, set_Bits(Acc, Pos), Items);
  p_add_list(_Hfs, _BFSize, Acc, []) -> 
      Acc.    
  