anchor.diff:      parseOLNum(Content, 0).
   
   parseOLNum(Content, Ind) ->
  -    case remWS(Content, true) of
  +    case remLS(Content) of
           {_Content, Count} when Count > (Ind + 3) ->
               false;
           {Content2, _} ->
  
positive.code:     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);
  remWS(<<13, 10, Rest/binary>>, Count, all)   -> remWS(Rest, Count,     all);
  remWS(<<32,     Rest/binary>>, Count, LRem)  -> remWS(Rest, Count + 1, LRem);
  remWS(<<9,      Rest/binary>>, Count, LRem)  -> remWS(Rest, Count + 4, LRem);
  remWS(Rest,                    Count, _)     -> {Rest, Count}.
  
  checkIfList(Content) ->
      case parseOLNum(Content) of
  
negative.code:     end.
  
  continueLI(false, Content, Ind) ->
      case remLS(Content) of
          {Content2, Count} when Count >= Ind ->
              {cont, Content2};
          _ ->
  