anchor.diff:        Character :: char().
   
   right(String, Len, Char) when is_integer(Char) ->
  -    Slen = length(String),
  +    Slen = erlang:length(String),
       if
   	Slen > Len -> substr(String, Slen-Len+1);
   	Slen < Len -> r_pad(String, Len-Slen, Char);
  
positive.code:     end.
  
  to_number(String, Number, Rest, List, _Tail) when is_binary(String) ->
      BSz = length(List)-length(Rest),
      <<_:BSz/binary, Cont/binary>> = String,
      {Number, Cont};
  to_number(_, Number, Rest, _, Tail) ->
  
negative.code: centre(String, 0, Char) when is_list(String), is_integer(Char) ->
      [];                       % Strange cases to centre string
  centre(String, Len, Char) when is_integer(Char) ->
      Slen = erlang:length(String),
      if
  	Slen > Len -> substr(String, (Slen-Len) div 2 + 1, Len);
  	Slen < Len ->
  