anchor.diff:  io_to_integer(Val,Len,Prec) when is_binary(Val) ->
       io_to_integer(binary_to_list(Val),Len,Prec);
   io_to_integer(Val,Len,Prec) ->
  -    Value = try  list_to_integer(Val)
  +    Value = try  list_to_integer(lists:delete(?THOUSAND_SEP,Val))
           catch _:_ -> 
               try erlang:round(list_to_float(Val))
               catch _:_ ->  
  
positive.code:                           ]).
  
  -define(H(X), (hex(X)):16).
  
  -define(BinaryMaxLen,250).          %% more represented by "..." suffix
  
  
negative.code: io_to_decimal(Val,Len,0) ->         %% use fixed point arithmetic with implicit scaling factor
      io_to_integer(Val,Len,0);
  io_to_decimal(Val,Len,Prec) ->
      case lists:delete(?THOUSAND_SEP,Val) of
          [$-|Positive] -> Sign = [$-];
          Positive -> Sign = []
      end,
  