anchor.diff:      end.
   
   continueLI(false, Content, Ind) ->
  -    case remWS(Content, true) of
  +    case remLS(Content) of
           {Content2, Count} when Count >= Ind ->
               {cont, Content2};
           _ ->
  
positive.code: evalRemWS(Content, [{Tag, _, _}|_]) when (Tag == ul) or (Tag == ol) ->
      Content;
  evalRemWS(Content, _PState) ->
      case remWS(Content, true) of
          {Rest2, Count} when Count =< 3 ->
              Rest2;
          _ ->
  
negative.code:     end.
  
  remWS(Content) ->
      remWS(Content, infinity, 0, all).
  
  remLS(Content) ->
      remWS(Content, infinity, 0, true).
  
  remInd(Content) ->
      remWS(Content, 4, 0, true).
  
  remWS(<<>>,                    _, C, _)      -> {<<>>, C};
  remWS(Rest, Ind, Count, _) when Count >= Ind -> {Rest, Count};
  remWS(<<13, 10, Rest/binary>>, I, C, false)  -> remWS(Rest, I, C,     true);
  remWS(<<13, 10, Rest/binary>>, I, C, all)    -> remWS(Rest, I, C,     all);
  remWS(<<32,     Rest/binary>>, I, C, LRem)   -> remWS(Rest, I, C + 1, LRem);
  remWS(<<9,      Rest/binary>>, I, C, LRem)   -> remWS(Rest, I, C + 4, LRem);
  remWS(Rest,                    _, C, _)      -> {Rest, C}.
  
  checkIfList(Content) ->
      case parseOLNum(Content) of
  