anchor.diff:          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),
  
positive.code: %% PS  => Stack built when parsing: [TD]
  %% TD  => {Tag, CT, CI}
  %% CT  => current token
  %% CI  => current indent
  %% PL  => previous line
  %% CL  => current line
  
negative.code: setOptions(_Tag) ->
      <<"align=bottom">>.
  
  removeParam(CT) ->
      removeParam(CT, CT, 0, <<>>).
  
  removeParam(<<$(, CT/binary>>, NotModified, 0, SoFar) ->
      removeParam(CT, NotModified, 1, SoFar);
  removeParam(<<$), CT/binary>>, NotModified, 1, SoFar) ->
      removeParam(CT, NotModified, 0, SoFar);
  removeParam(<<Char:8, CT/binary>>, NotModified, Num, SoFar) ->
      removeParam(CT, NotModified, Num, <<SoFar/binary, Char:8>>);
  removeParam(<<>>, _NotModified, 0, SoFar) ->
      SoFar;
  removeParam(<<>>, NotModified, _Num, _SoFar) ->
      NotModified.
  
  %%%-------------------------------------------------------------------
  %%% Debug info
  %%%-------------------------------------------------------------------
  