anchor.diff:      escape(Rest, [C | Acc]).
   
   escape_attr([], Acc) ->
  -    lists:reverse(Acc);
  +    list_to_binary(lists:reverse(Acc));
   escape_attr("<" ++ Rest, Acc) ->
       escape_attr(Rest, lists:reverse("&lt;", Acc));
   escape_attr(">" ++ Rest, Acc) ->
  
positive.code:                Unichar ->
                     xmerl_ucs:to_utf8(Unichar)
             end,
      {{data, Data, false}, Rest, ?INC_COL(S)};
  tokenize_charref([C | Rest], S, Acc) ->
      tokenize_charref(Rest, ?INC_COL(S), [C | Acc]).
  
  
negative.code:     %% Native {"p", [{"class", "foo"}], ["content"]}
      Tag = to_tag(Tag0),
      T1 = to_tag(T0),
      case is_singleton(norm(T1)) of
          true ->
              to_tokens([{Tag, R1} | Rest], [{start_tag, T1, A1, true} | Acc]);
          false ->
  