anchor.diff:    {T4, Children} = pull_children(T3),
     Tag = tricky_attributes(TagText, Type, Attr, LChildren ++ Children),
     parse(T4, [Tag | CurrLvl]);
  -
   parse([{string, _, Text} | T], CurrLvl) ->
     parse(T, [Text | CurrLvl]);
  -
   parse([{newline, _} | T], CurrLvl) ->
     parse(T, CurrLvl).
   
  
positive.code:   {Name2, Attr2} = tricky_attributes(lists:reverse(Tag), [], Attr),
    case Type of
      class ->
        {"div", normal, merge_attr(Attr2, [{class, [Name2]}]), Children};
      id ->
        {"div", normal, merge_attr(Attr2, [{id, [Name2]}]), Children};
      _ ->
        {Name2, Type, Attr2, Children}
    end.
   
  tricky_attributes([], CurrName, Attr) ->
  
negative.code:   parse([], CurrLvl);
  parse([], CurrLvl) ->
    lists:reverse(CurrLvl);
  parse([{dedent,_}|{end_of_file,_}], CurrLvl) ->
    lists:reverse(CurrLvl);
  parse([{dedent,_}|T], CurrLvl) ->
    {T, lists:reverse(CurrLvl)};
  parse([{start_tag, _, Type} |
  