sub test_of_number_e
{
  for my $char (unpack('C*',$_[0])){ ($char<48 || 57<$char)?return 0:undef(); }
  return 1;
}