anchor.diff:    hexstr_to_bin(T, [V | Acc]).
   
   encode({obj,Items}) when is_list(Items) ->
  -    Bin = list_to_binary(lists:map(fun encode_element/1, Items)),
  -    <<(size(Bin)+5):32/little-signed,Bin/binary,0:8>>.
  +  Bin = list_to_binary(lists:map(fun encode_element/1, Items)),
  +  <<(size(Bin)+5):32/little-signed,Bin/binary,0:8>>.
   
   encode_element({Name, Value}) when is_list(Name), is_float(Value) ->
     NameEncoded = encode_cstring(Name),
  
positive.code:   {String, RestNext} = decode_cstring(Rest, []),
    ActualSize = size(Rest) - size(RestNext),
    case ActualSize =:= Size of
        false ->
            ?debugFmt("* ~p =:= ~p -> false", [ActualSize, Size]),
            throw({invalid_length, expected, Size, ActualSize});
        true ->
            {String, RestNext}
    end;
  
  decode_value(_Type = 3, <<Size:32/little-signed, Rest/binary>> = Binary)
  
negative.code:   <<16, StringEncoded/binary, Value:4/little-signed-unit:8>>.
  
  encode_cstring(String) when is_list(String) ->
    Bin = unicode:characters_to_binary([String]),
    <<Bin/binary, 0:8>>.
  
  %% Size has to be greater than 4
  decode(<<Size:32/little-signed, Rest/binary>> = Binary) when byte_size(Binary) >= Size, Size > 4 ->
  