anchor.diff:  %% PS  => Stack built when parsing: [TD]
   %% TD  => {Tag, CT, CI}
   %% CT  => current token
  +%% PT  => previous token
   %% CI  => current indent
   %% PL  => previous line
   %% CL  => current line
  
positive.code: parse(Content, [blockquote| St], PL, CL, Acc) ->
      Acc2 = <<Acc/binary, "</blockquote>">>,
      convert(Content, St, PL, CL, Acc2);
  
  %% URL
  parse(<<$<, Rest/binary>>, PState, PL, CL, Acc) ->
  
negative.code:         Num ->
              parse(CT, [{Tag, Num, <<Bef/binary,  $<>>}|TL], PL, CL, Acc)
      end;
  
  parse(<<>>, [{lDesc, _Num, CT}| St], PL, CL, Acc) ->
      convert(CT, addCT(<<"[">>, St), PL, CL, Acc);
  
  parse(<<>>, [{link, _Num, CT}, {lDesc, PT}| St], PL, CL, Acc) ->
      convert(<<PT/binary, $], $(, CT/binary>>,
              addCT(<<"[">>, St), PL, CL, Acc);
  
  parse(<<>>, [{ilDesc, _Num, CT}| St], PL, CL, Acc) ->
      convert(CT, addCT(<<"![">>, St), PL, CL, Acc);
  
  parse(<<>>, [{ilink, _Num, CT}, {ilDesc, PT}| St], PL, CL, Acc) ->
      convert(<<PT/binary, $], $(, CT/binary>>,
          addCT(<<"![">>, St), PL, CL, Acc);
  
  parse(<<>>, [{Tag, CT}| St], _PL, _CL, Acc) ->
      {CTags, _} = closeTags(St),
  