anchor.diff:      end;
   
   %% Header end by line end.
  -convert(<<13, 10, Rest/binary>>, [{Tag, CT}|St], PL, CL, Acc)
  +parse(<<13, 10, Rest/binary>>, [{Tag, CT}| St], PL, CL, Acc)
     when (Tag == h6) or (Tag == h5) or (Tag == h4) or
          (Tag == h3) or (Tag == h2) or (Tag == h1) ->
       BTag = makeTag(Tag, CT),
  
positive.code:         {Tag, {cont, Rest2}} ->
              convert(Rest2, [{Tag, Ind, <<CT/binary, 13, 10>>}|St], PL, CL, Acc)
      end;
  convert(<<Char:8, Rest/binary>>, [{Tag, Ind, CT}|St], PL, CL, Acc)
      when (Tag == ol) or (Tag == ul) ->
      convert(Rest, [{Tag, Ind, <<CT/binary, Char:8>>}|St], PL, CL, Acc).
  
  
negative.code:     convert(Rest, St, PL, CL, Acc2);
  
  %% Paragraph text ending
  parse(<<13, 10, Rest/binary>>, [{p, CT}| St], <<>>, CL, Acc) ->
      BTag = makeTag(p, CT),
      Acc2 = <<Acc/binary, BTag/binary>>,
      convert(Rest, St, <<>>, CL, Acc2);
  
  parse(<<13, 10, Rest/binary>>, [{p, CT}| St], PL, CL, Acc) ->
      case header(CL, PL) of
          {true, Tag, Hdr} ->
              BTag = makeTag(Tag, Hdr),
              Acc2 = <<Acc/binary, BTag/binary, 13, 10>>,
              convert(Rest, St, PL, CL, Acc2);
          false ->
              case Rest of
                  <<13, 10, Rest2/binary>> ->
                      BTag = makeTag(p, CT),
                      Acc2 = <<Acc/binary, BTag/binary>>,
                      convert(Rest2, St, PL, CL, Acc2);
                  Rest ->
                      convert(Rest, [{p, <<CT/binary, 13, 10>>}|St], PL, CL, Acc)
              end
      end;
  
  %% Check for list
  parse(<<Char:8, Rest/binary>>, [{p, CT}| St], PL, CL, Acc) ->
      case checkIfList(<<Char:8, Rest/binary>>) of
          {true, Tag} ->
              BTag = makeTag(p, CT),
              Acc2 = <<Acc/binary, BTag/binary>>,
              convert(<<Char:8, Rest/binary>>, [Tag|St], PL, CL, Acc2);
          false ->
              convert(Rest, [{p, <<CT/binary, Char:8>>}|St], PL, CL, Acc)
      end;
  
  %% Parse content
  parse(<<Char:8, Rest/binary>>, [{CTag, CT}| St], PL, CL, Acc) ->
      PState = [{CTag, <<CT/binary, Char:8>>}|St],
      convert(Rest, PState, PL, CL, Acc);
  
  %% Text end by end of data
  parse(<<>>, [{_Tag, <<>>}], _PL, _CL, Acc) ->
      Acc;
  
  parse(<<>>, [{p, CT}| St], PL, CL, Acc) ->
      case header(CL, PL) of
          {true, Tag, Hdr} ->
              {CTags, _} = closeTags(0, St),
  