anchor.diff:        decimal_q0(LI, IsInexact);
       _ ->
         false
  +  end.
  +
  +number_q5_norm(Ch) -> % normalize case of relevant characters
  +  case Ch of
  +    $b -> $B;
  +    $o -> $O;
  +    $x -> $X;
  +    $d -> $D;
  +    _  -> Ch
     end.
   
   choose_decimal_q0_or_integer_q0(LI, Radix, IsInexact) -> % after "#[BODX]#[EI]"
  
positive.code: 
  number_q5(LI, IsInexact) -> % after "#{E,I}#"
    Ch = es_lexinput:peek_char(LI),
    case es_ctype:char_upcase(Ch) of
      $B ->
        es_lexinput:read_char(LI),
        integer_q0(LI, 2, IsInexact);
  
negative.code:       choose_decimal_q0_or_integer_q0(LI, Radix, true);
      _ ->
        false
    end.
  
  number_q3_norm(Ch) -> % normalize case of relevant characters
    case Ch of
      $e -> $E;
      $i -> $I;
      _  -> Ch
    end.
  
  number_q4(LI, Radix, IsInexact) -> % after "#{E,I}"
  