anchor.diff:  
   -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]));
  +    calc_FPR(Size, NumItems, ?REP_HFS:size(Hfs));
   get_property(Bloom, Property) ->
       FieldNames = record_info(fields, bloom),
       {_, N} = lists:foldl(fun(I, {Nr, Res}) -> case I =:= Property of
  
positive.code: 
  % faster than lists:foldl
  p_add_list(Hfs, BFSize, Acc, [Item | Items]) ->
      Pos = apply(element(1, Hfs), apply_val_rem, [Hfs, Item, BFSize]),
      p_add_list(Hfs, BFSize, set_Bits(Acc, Pos), Items);
  p_add_list(_Hfs, _BFSize, Acc, []) -> 
      Acc.    
  
negative.code: % @doc returns true if the bloom filter contains item
  -spec is_element_(bloom_filter_t(), 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).
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  