anchor.diff:  
   %% @doc Return bloom filter debug information.
   -spec print(bloom_filter()) -> [{atom(), any()}].
  -print(#bloom{ max_items = MaxItems,
  -               size = Size,
  -               hfs = Hfs,
  -               items_count = NumItems } = Bloom) -> 
  +print(#bloom{max_items = MaxItems, size = Size, hfs = Hfs,
  +             items_count = NumItems} = Bloom) ->
       HCount = ?REP_HFS:size(Hfs),
       [{filter_bit_size, Size},
        {struct_byte_size, byte_size(term_to_binary(Bloom))},
  
positive.code:     AccBF2 = <<AccBF/binary, AccPosBF:8, 0:DiffBits>>,
      % make new AccPosBF
      AccPosBF2 = (2#10000000 bsr PosInByte),
      p_add_list_v2_(Rest, AccPosBF2, AccBF2, BF);
  p_add_list_v2_([], AccPosBF, AccBF, BF) ->
      BFSize = erlang:bit_size(BF),
      RestBits = BFSize - erlang:bit_size(AccBF) - 8,
      <<AccBF2Nr:BFSize>> = <<AccBF/binary, AccPosBF:8, 0:RestBits>>,
      % merge AccBF2 and BF
      <<BFNr:BFSize>> = BF,
      ResultNr = AccBF2Nr bor BFNr,
      <<ResultNr:BFSize>>.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  % @doc returns true if the bloom filter contains item
  -spec is_element(bloom_filter(), key()) -> boolean().
  is_element(#bloom{size = BFSize, hfs = Hfs, filter = Filter}, Item) -> 
      Positions = ?REP_HFS:apply_val_rem(Hfs, Item, BFSize),
      check_Bits(Filter, Positions).
  
negative.code: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  -spec get_property(bloom_filter(), atom()) -> not_found | term().
  get_property(#bloom{size = Size, hfs = Hfs, items_count = NumItems}, fpr) ->
      calc_FPR(Size, NumItems, ?REP_HFS:size(Hfs));
  get_property(Bloom, Property) ->
      FieldNames = record_info(fields, bloom),
  