anchor.diff:  
   -spec encode_key(?RT:key()) -> integer().
   encode_key(Key) ->
  -    binary:decode_unsigned(term_to_binary(Key)).
  -
  --spec decode_key(integer()) -> ?RT:key().
  -decode_key(IntKey) ->
  -    binary_to_term(binary:encode_unsigned(IntKey)).
  +    term_to_binary(Key).
  +
  +-spec decode_key(binary()) -> ?RT:key().
  +decode_key(BinKey) ->
  +    binary_to_term(BinKey).
  
positive.code:                                 RCC = resize(CellCount, K),
                                  {RCC, erlang:round(RCC / K)}
                          end,
      SubTable = [{0, 0 ,0, 0, 0} || _ <- lists:seq(1, ColSize)],
      Table = [ {I, SubTable} || I <- lists:seq(1, K)],
      #iblt{
            hfs = Hfs, 
  
negative.code: 
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  -spec change_cell([cell()], pos_integer(), Key::binary(), value(), cell_operation()) -> [cell()].
  change_cell(Column, CellNr, Key, Value, Operation) ->
      {HeadL, [Cell | TailL]} = lists:split(CellNr, Column),
      {Count, KeySum, KHSum, ValSum, VHSum} = Cell,
      lists:flatten([HeadL, 
                     {Count + operation_val(Operation), 
                      util:bin_xor(KeySum, Key), KHSum bxor checksum_fun(Key),
                      ValSum bxor Value, VHSum bxor checksum_fun(Value)}, 
                     TailL]).
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  