anchor.diff:  -define(IS_LITERAL_SAFE(C),
           ((C >= $A andalso C =< $Z) orelse (C >= $a andalso C =< $z)
            orelse (C >= $0 andalso C =< $9))).
  -                                
  +
   -record(decoder, {line=1,
                     column=1,
                     offset=0}).
  
positive.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>> ->
  
negative.code:             {S2, _} = find_gt(B, S1),
              {{end_tag, Tag}, S2};
          <<_:O/binary, "<", C, _/binary>> when ?IS_WHITESPACE(C) ->
              %% This isn't really strict HTML
              tokenize_data(B, ?INC_COL(S));
          <<_:O/binary, "<", _/binary>> ->
              {Tag, S1} = tokenize_literal(B, ?INC_COL(S)),
  