anchor.diff:                              C =< 16#A629 ->
     16#A620;
   
  -%% %% 16#2460 - 16#24F9 Enclosed Alphanumerics 100 of them.... no zeroes?? so minus one
  -zero_base_by_family(C) when C >= 16#2460,C =< 16#2468 ->16#245F;%
  -zero_base_by_family(C) when C >= 16#2474,C =< 16#247C ->16#2473;%
  +%% %% 16#2460 - 16#24F9 Enclosed Alphanumerics no zeroes?? so minus one
  +zero_base_by_family(C) when C >= 16#2460,C =< 16#2468 ->16#245F;
  +zero_base_by_family(C) when C >= 16#2474,C =< 16#247C ->16#2473;
   zero_base_by_family(C) when C >= 16#2488,C =< 16#2490 ->16#2487;
   zero_base_by_family(C) when C >= 16#249C,C =< 16#24A4 ->16#249B;
   zero_base_by_family(C) when C >= 16#24B6,C =< 16#24BE ->16#24B5;
  
positive.code:                    I + Adj
               end, Str).
  
  
  trim_char([H|T],C) when H =:= C ->
     trim_char(T,C);
  trim_char(T,_C) ->
     T.
  
  
  insert_char([],_,_Char,_Pos) -> [];
  insert_char([H|T],[],_Char,_Pos) -> [H|insert_char(T,[],[],[])];
  insert_char([H|T],[HPos|TPos],[Char],Pos) when HPos == Pos, length(T) > 0 ->
     [H,Char|insert_char(T,TPos,[Char],Pos+1)];
  insert_char([H|T],[HPos|TPos],Char,Pos) ->
     [H|insert_char(T,[HPos|TPos],Char,Pos+1)].
     
  
  % pads to the right
  pad_char_from_dec(Str,[Zero],[Dec],Len) ->
  
negative.code: 
  integer_name(_Int1,en,_Part) -> ok.
  
  %% language(_) -> "en".
  %% 
  %% % should do ISO and AD at minimum
  