anchor.diff:          _ ->
               insertBR(Rest, <<SoFar/binary, Char:8>>)
       end;
  -insertBR(<<32, Rest/binary>>, <<>>) ->
  -    insertBR(Rest, <<>>);
  -insertBR(<<9, Rest/binary>>, <<>>) ->
  -    insertBR(Rest, <<>>);
   insertBR(<<>>, SoFar) ->
       SoFar.
   
  +evalInsertBR(Rest, SoFar) ->
  +    case remWS(Rest) of
  +        {<<>>, _} ->
  +            SoFar;
  +        {Rest2, _} ->
  +            insertBR(Rest2, <<SoFar/binary, ?brTag, 13, 10>>)
  +    end.
  +
   remWS(Content) ->
       remWS(Content, 0, all).
  +
  +remWS(Content, CRLF) ->
  +    remWS(Content, 0, CRLF).
   
   remWS(<<>>,                    Count, _)     -> {<<>>, Count};
   remWS(<<13, 10, Rest/binary>>, Count, false) -> remWS(Rest, Count,     true);
  
positive.code:             <<Acc/binary, BTag/binary, CTags/binary>>
      end;
  
  convert(<<>>, PState = [{Tag, _, CT}|_], _PL, _CL, Acc)
      when (Tag == ul) or (Tag == ol) ->
      {CTags, _} = closeTags(0, PState),
      BTag       = makeTag(li, CT),
      <<Acc/binary, BTag/binary, CTags/binary>>;
  
  convert(<<>>, [{url, CT}|St], _PL, _CL, Acc) ->
      {CTags, _} = closeTags(0, St),
      BTag       = makeTag(p, <<$<, CT/binary>>),
      <<Acc/binary, BTag/binary, CTags/binary>>;
  
  convert(<<>>, [{Tag, CT}|St], _PL, _CL, Acc) ->
      {CTags, _} = closeTags(0, St),
      BTag       = makeTag(Tag, CT),
      <<Acc/binary, BTag/binary, CTags/binary>>;
  
  %% Parse Lists
  convert(Content, [ol_start|St], PL, CL, Acc) ->
      {true, NumBin, Rest} = parseOLNum(Content),
      Indent = calcIndent(Content, Rest),
      Acc2   = <<Acc/binary, "<ol start='", NumBin/binary, "'>">>,
      convert(Rest, [{ol, Indent, <<>>}|St], PL, CL, Acc2);
  
  convert(Content, [ul_start|St], PL, CL, Acc) ->
      {true, Rest} = parseULBullet(Content),
      Indent = calcIndent(Content, Rest),
      Acc2   = <<Acc/binary, "<ul>">>,
      convert(Rest, [{ul, Indent, <<>>}|St], PL, CL, Acc2);
  
  convert(<<13, 10, Rest/binary>>, PState = [{Tag, Ind, CT}|St], PL, CL, Acc)
    when (Tag == ol) or (Tag == ul) ->
      BTag = makeTag(li, CT),
      case {Tag, parseList(Tag, Rest, Ind)} of
  
negative.code:         {Tag, {cont, Rest2}} ->
              convert(Rest2, [{Tag, Ind, <<CT/binary, 13, 10>>}|St], PL, CL, Acc)
      end;
  parse(<<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).
  
  