anchor.diff:          tokens(<<"<foo bar=baz wibble='wibble' alice=bob/>">>),
       [{comment, <<"[if lt IE 7]>\n<style type=\"text/css\">\n.no_ie { display: none; }\n</style>\n<![endif]">>}] =
           tokens(<<"<!--[if lt IE 7]>\n<style type=\"text/css\">\n.no_ie { display: none; }\n</style>\n<![endif]-->">>),
  +    [{start_tag, <<"script">>, [{<<"type">>, <<"text/javascript">>}], false},
  +     {data, <<" A= B <= C ">>, false},
  +     {end_tag, <<"script">>}] =
  +        tokens(<<"<script type=\"text/javascript\"> A= B <= C </script>">>),
  +    [{start_tag, <<"textarea">>, [], false},
  +     {data, <<"<html></body>">>, false},
  +     {end_tag, <<"textarea">>}] =
  +        tokens(<<"<textarea><html></body></textarea>">>),
       ok.
   
   tokens(B, S=#decoder{offset=O}, Acc) ->
  
positive.code: 
  destack(TagName, Stack) when is_list(Stack) ->
      F = fun (X) ->
                  case X of 
                      {TagName, _, _} ->
                          false;
                      _ ->
  
negative.code: 
  tokenize_charref(Bin, S=#decoder{offset=O}) ->
      tokenize_charref(Bin, S, O).
  
  tokenize_charref(Bin, S=#decoder{offset=O}, Start) ->
      case Bin of
          <<_:O/binary>> ->
  