anchor.diff:      badarg.
   
   list_to_integer([D|L], Base, I) 
  -  when is_integer(D), D >= $0, D =< $9, D < Base+$0 ->
  +  when erlang:is_integer(D), D >= $0, D =< $9, D < Base+$0 ->
       list_to_integer(L, Base, I*Base + D-$0);
   list_to_integer([D|L], Base, I) 
  -  when is_integer(D), D >= $A, D < Base+$A-10 ->
  +  when erlang:is_integer(D), D >= $A, D < Base+$A-10 ->
       list_to_integer(L, Base, I*Base + D-$A+10);
   list_to_integer([D|L], Base, I) 
  -  when is_integer(D), D >= $a, D < Base+$a-10 ->
  +  when erlang:is_integer(D), D >= $a, D < Base+$a-10 ->
       list_to_integer(L, Base, I*Base + D-$a+10);
   list_to_integer([], _, I) ->
       I;
  
positive.code:     [{cput_i2e_tag(Lvl, TM), cput_i2e(rvrs(SameV), true, Lvl+1, TM)}
       | cput_i2e(Is, false, Lvl, TM)].
  
  cput_i2e_tag_map() -> list_to_tuple([cpu | record_info(fields, cpu)]).
  
  cput_i2e_tag(Lvl, TM) ->
      case element(Lvl, TM) of processor_node -> node; Other -> Other end.
  
  rvrs([_] = L) -> L;
  rvrs(Xs) -> rvrs(Xs, []).
  
negative.code: 
  list_to_integer_sign([$-|[_|_]=L], Base) ->
      case list_to_integer(L, Base, 0) of
  	I when erlang:is_integer(I) ->
  	    -I;
  	I ->
  	    I
  