anchor.diff:      to_tokens([{Tag0, R1} | Rest], [T0 | Acc]);
   to_tokens([{Tag0, [T0={comment, _C0} | R1]} | Rest], Acc) ->
       %% Allow {comment, iolist()}
  +    to_tokens([{Tag0, R1} | Rest], [T0 | Acc]);
  +to_tokens([{Tag0, [T0={pi, _S0} | R1]} | Rest], Acc) ->
  +    %% Allow {pi, binary()}
       to_tokens([{Tag0, R1} | Rest], [T0 | Acc]);
   to_tokens([{Tag0, [T0={pi, _S0, _A0} | R1]} | Rest], Acc) ->
       %% Allow {pi, binary(), list()}
  
positive.code:             tokenize_literal(Bin, ?INC_COL(S), [C | Acc]);
          _ ->
              {iolist_to_binary(lists:reverse(Acc)), S}
      end.
  
  find_qgt(Bin, S=#decoder{offset=O}) ->
  
negative.code:     lists:reverse(Acc);
  to_html([{'=', Content} | Rest], Acc) ->
      to_html(Rest, [Content | Acc]);
  to_html([{pi, Bin} | Rest], Acc) ->
      Open = [<<"<?">>,
              Bin,
              <<"?>">>],
      to_html(Rest, [Open | Acc]);
  to_html([{pi, Tag, Attrs} | Rest], Acc) ->
      Open = [<<"<?">>,
              Tag,
  