anchor.diff:  
   number_q1(LI, Radix) -> % after "#"
     Ch = es_lexinput:peek_char(LI),
  -  case es_ctype:char_upcase(Ch) of
  +  case number_q1_norm(Ch) of
       $B ->
         es_lexinput:read_char(LI),
         number_q2(LI, 2);
  
positive.code:       choose_decimal_q0_or_integer_q0(LI, Radix, true);
      _ ->
        false
    end.
  
  number_q4(LI, Radix, IsInexact) -> % after "#{E,I}"
  
negative.code: 
  number_q3(LI, Radix) -> % after "#{B,O,D,X}#"
    Ch = es_lexinput:peek_char(LI),
    case number_q3_norm(Ch) of
      $E ->
        es_lexinput:read_char(LI),
        choose_decimal_q0_or_integer_q0(LI, Radix, false);
  