anchor.diff:  to_iolist_clean(Elements) when is_list(Elements) ->
       lists:map(fun to_iolist_clean/1, Elements);
   to_iolist_clean(#xmlel{name = Name, attrs = Attrs, children = []}) ->
  -    ["<", Name, attrs_to_iolist(Attrs, []), "/>"];
  +    ["<", Name, attrs_to_iolist(Attrs), "/>"];
   to_iolist_clean(#xmlel{name = Name, attrs = Attrs, children = Children}) ->
  -    ["<", Name, attrs_to_iolist(Attrs, []), ">",
  +    ["<", Name, attrs_to_iolist(Attrs), ">",
        to_iolist_clean(Children),
        "</", Name, ">"];
   to_iolist_clean(#xmlstreamstart{name = Name, attrs = Attrs}) ->
  -    ["<", Name, attrs_to_iolist(Attrs, []), ">"];
  +    ["<", Name, attrs_to_iolist(Attrs), ">"];
   to_iolist_clean(#xmlstreamend{name = Name}) ->
       ["</", Name, ">"];
   to_iolist_clean(#xmlcdata{content = Content}) ->
  
positive.code: to_iolist_escape(#xmlel{name = Name, attrs = Attrs, children = []}) ->
      EAttrs = [{AttrName, escape_attr(AttrVal)} ||
                   {AttrName, AttrVal} <- Attrs],
      ["<", Name, attrs_to_iolist(EAttrs, []), "/>"];
  to_iolist_escape(#xmlel{name = Name, attrs = Attrs, children = Children}) ->
      EAttrs = [{AttrName, escape_attr(AttrVal)} ||
                   {AttrName, AttrVal} <- Attrs],
      ["<", Name, attrs_to_iolist(EAttrs, []), ">",
       to_iolist_escape(Children),
       "</", Name, ">"];
  to_iolist_escape(#xmlstreamstart{name = Name, attrs = Attrs}) ->
      EAttrs = [{AttrName, escape_attr(AttrVal)} ||
                   {AttrName, AttrVal} <- Attrs],
      ["<", Name, attrs_to_iolist(EAttrs, []), ">"];
  to_iolist_escape(#xmlstreamend{name = Name}) ->
      ["</", Name, ">"];
  to_iolist_escape(#xmlcdata{content = Content}) ->
  
negative.code:     EAttrs = [{AttrName, escape_attr(AttrVal)} ||
                   {AttrName, AttrVal} <- Attrs],
      Shift = lists:duplicate(Level, Indent),
      [Shift, "<", Name, attrs_to_iolist(EAttrs), ">\n"];
  to_pretty_iolist_escape(#xmlstreamend{name = Name}, Level, Indent) ->
      Shift = lists:duplicate(Level, Indent),
      [Shift, "</", Name, ">\n"];
  