anchor.diff:  
   destack(TagName, Stack) when is_list(Stack) ->
       F = fun (X) ->
  -                case X of 
  +                case X of
                       {TagName, _, _} ->
                           false;
                       _ ->
  
positive.code:             {S2, _} = find_gt(B, S1),
              {{end_tag, Tag}, S2};
          <<_:O/binary, "<", C, _/binary>> when ?IS_WHITESPACE(C) ->
              %% This isn't really strict HTML but we want this for markdown
              tokenize_data(B, ?INC_COL(S));
          <<_:O/binary, "<", _/binary>> ->
              {Tag, S1} = tokenize_literal(B, ?INC_COL(S)),
  
negative.code:     attrs_to_html(Rest,
                    [[<<" ">>, escape(K), <<"=\"">>,
                      escape_attr(V), <<"\"">>] | Acc]).
  
  test_escape() ->
      <<"&amp;quot;\"word &lt;&lt;up!&amp;quot;">> =
          escape(<<"&quot;\"word <<up!&quot;">>),
  