anchor.diff:  parse_tag(<<C, R/binary>>, K) ->
       parse_tag(R, <<K/binary, C>>).
   
  -
  -
  -
  -
  +recombine_tags(Tags) ->
  +    [<<K/binary, "=", V/binary>> || {_,K,V} <- Tags].
   
   -ifdef(TEST).
   
  
positive.code: parse_metric(<<" ", R/binary>>, Part,
               M = #{key := Ks}) ->
      Ks1 = [Part | Ks],
      M1 = M#{metric := lists:reverse(Ks1),
              key := Ks1},
      parse_time(R, <<>>, M1);
  
  parse_metric(<<".", R/binary>>, Part,
  
negative.code:     parse_value(R, <<Part/binary, C>>, M).
  
  
  parse_tags(<<>>, Tag, M = #{tags := Tags, key := Ks}) ->
      {K, V} = parse_tag(Tag, <<>>),
      Tags1 = lists:sort([{<<"">>, K, V} | Tags]),
      M#{key := Ks ++ recombine_tags(Tags1),
         tags := Tags1};
  
  parse_tags(<<" ", R/binary>>, Tag, M = #{tags := Tags}) ->
      {K, V} = parse_tag(Tag, <<>>),
  