anchor.diff:      {sgml_innertext, Res, 1}.
   
   sgml_mutate(Ll = [H|T], Meta) ->
  -    %io:format("Trying to parse... ~n~n"),
  +    io:format("Trying to parse... ~p~n", [size(H)]),
       %file:write_file("./last_sgml.txt", H),
       try parse(H) of
           {ok, ParsedStr, _, Cnts} ->
  
positive.code:                 NewBinStr =:= H ->
                  {fun sgml_mutate/2, Ll, Meta, -1};
              true ->
                  {fun sgml_mutate/2, [NewBinStr | T], [{Name, 1} | Meta], D}
              end
      catch
          incorrect_sgml ->
  
negative.code: 
  tz({que,DT},?m("?>",Str))                 -> {text,Str,{que,DT}};
  tz({que,DT},?d(X,Str))                    -> {{que,DT++[X]},Str};
  tz({que,_}, <<>>)                         -> throw(incorrect_sgml);
  
  tz({etag,Tag,Attrs},?m("/>",Str))         -> {text,Str,{sc,Tag,Attrs}};
  tz({etag,Tag,Attrs},?m(">",Str))          -> {text,Str,{open,Tag,Attrs}};
  