anchor.diff:  addCT(D, [{Tag, Num, CT}|St]) when is_atom(Tag), is_binary(D), is_binary(CT) ->
       [{Tag, Num, <<CT/binary, D/binary>>}|St].
   
  -calcIndent(Bin1, Bin2) -> byte_size(Bin1) - byte_size(Bin2).
  +calcIndent(CurrentLine, Content, Rest) ->
  +    {_, Count} = remWS(CurrentLine),
  +    Count + byte_size(Content) - byte_size(Rest).
   
   entities(Content) ->
       entities(Content, <<>>).
  
positive.code:     end.
  
  continueLI(false, Content, Ind) ->
      case remWS(Content, 0, true) of
          {Content2, Count} when Count >= Ind ->
              {cont, Content2};
          _ ->
  
negative.code:     parseULBullet(Content, 0).
  
  parseULBullet(Content, Ind) ->
      case remWS(Content, true) of
          {_Content, Count} when Count > (3 + Ind) ->
              false;
          {Content2, _} ->
  