anchor.diff:  parse_metric(<<" ", R/binary>>, Part,
                M = #{key := Ks}) ->
       Ks1 = [Part | Ks],
  -    M1 = M#{metric := lists:reverse(Ks1),
  -            key := Ks1},
  +    Ks2 = lists:reverse(Ks1),
  +    M1 = M#{metric := Ks2,
  +            key := Ks2},
       parse_time(R, <<>>, M1);
   
   parse_metric(<<".", R/binary>>, Part,
  
positive.code: parse_tag(<<C, R/binary>>, K) ->
      parse_tag(R, <<K/binary, C>>).
  
  
  
  
  
  
  -ifdef(TEST).
  
  
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, <<>>),
  