anchor.diff:  %% decode_size(<<0:1, H:7, T/binary>>) ->
   %%     {H, T}.
   
  -encode_big_neg(I) ->
  +encode_big_neg(I,Legacy) ->
       {Words, Max} = get_max(-I),
       ?dbg("Words = ~p | Max = ~p~n", [Words,Max]),
       Iadj = Max + I,             % keep in mind that I < 0
       ?dbg("IAdj = ~p~n", [Iadj]),
  -    Bin = encode_bin_elems(list_to_binary(encode_big1(Iadj))),
  +    Bin = encode_big(Iadj,Legacy),
       ?dbg("Bin = ~p~n", [Bin]),
       WordsAdj = 16#ffffFFFF - Words,
       ?dbg("WordsAdj = ~p~n", [WordsAdj]),
  
positive.code:             encode_int(Int0, Fraction)
      end.
  
  
  encode_int(I, R) ->
      encode_int(I, R, false).
  
  
negative.code:     <<WordsAdj:32, Rest/binary>> = Bin,
      Words = 16#ffffFFFF - WordsAdj,
      ?dbg("Words = ~p~n", [Words]),
      {Ib0, Rest1} = decode_binary(Rest),
      Ib = remove_size_bits(Ib0),
      ?dbg("Ib = ~p | Rest1 = ~p~n", [Ib, Rest1]),
      ISz = size(Ib) * 8,
      <<I0:ISz>> = Ib,
  