anchor.diff:      parseOLNum(Content, 0).
   
   parseOLNum(Content, Ind) ->
  -    case remWS(Content, 0, true) of
  +    case remWS(Content, true) of
           {_Content, Count} when Count > (Ind + 3) ->
               false;
           {Content2, _} ->
  
positive.code:     BTag = makeTag(li, CT),
      case {Tag, parseList(Tag, Rest, Ind)} of
          {_, {true, Rest2}} ->
              Indent2 = calcIndent(Rest, Rest2),
              checkIndent(ul, Indent2, <<>>, Rest2, BTag, PState, PL, CL, Acc);
          {_, {true, Num, Rest2}} ->
              Indent2 = calcIndent(Rest, Rest2),
              checkIndent(ol, Indent2, Num, Rest2, BTag, PState, PL, CL, Acc);
          {ul, false} ->
              convert(Rest, St, PL, CL, <<Acc/binary, BTag/binary, "</ul>">>);
  
negative.code:     <<"<ol start='", Num/binary, "'>">>;
  makeStartTag(ul, _Num) ->
      <<"<ul>">>.
  
  
  closeTags(PState) ->
      closeTags(-1, PState, <<>>).
  
  %% Close tags left open or to a specific indentation(used by lists)
  closeTags(Ind, PState) ->
  