anchor.diff:  
   %% Indented code block
   parse(<<13, 10, Rest/binary>>, [{code, CT}], PL, CL, Acc) ->
  -    case remWS(Rest, true) of
  -        {Rest2, Count} when Count > 3 ->
  +    case remInd(Rest) of
  +        {Rest2, Count} when Count >= 4, is_binary(Rest2) ->
               convert(Rest2, [{code, <<CT/binary, 13, 10>>}], PL, CL, Acc);
           _ ->
               BTag = makeTag(code, CT),
  
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: evalRemWS(Content, [{Tag, _, _}|_]) when (Tag == ul) or (Tag == ol) ->
      Content;
  evalRemWS(Content, _PState) ->
      case remLS(Content) of
          {Rest2, Count} when Count =< 3 ->
              Rest2;
          _ ->
  