anchor.diff:  %%	{done,Result,RestChars}
   %%	{more,Continuation}
   
  -collect_chars([], Chars, _, N) ->
  +collect_chars([], Chars, _, N) when is_integer(N) ->
       collect_chars1(N, Chars, []);
  -collect_chars({Left,Sofar}, Chars, _, _N) ->
  +collect_chars({Left,Sofar}, Chars, _, _N) when is_integer(Left) ->
       collect_chars1(Left, Chars, Sofar).
   
   collect_chars1(N, Chars, Stack) when N =< 0 ->
  
positive.code: 	true -> true;
  	false ->
  	    case Cs0 of
  		[C|Cs] when C >= $a, C =< $z ->
  		    not name_chars(Cs);
  		[C|Cs] when C >= $ß, C =< $ÿ, C =/= $÷ ->
  		    not name_chars(Cs);
  		_ -> true
  	    end
      end.
  
  name_chars([C|Cs]) ->
      case name_char(C) of
  	true -> name_chars(Cs);
  	false -> false
  
negative.code:     {S, _} = write_binary(B, D, -1),
      S.
  
  write_binary(B, D, T) when is_integer(T) ->
      {S, Rest} = write_binary_body(B, D, tsub(T, 4), []),
      {[$<,$<,lists:reverse(S),$>,$>], Rest}.
  
  