sub isNumber
{
  defined $_[0] or return 0;
  my $N = 1;
  local $SIG{__WARN__} = sub { $N = 0; };
  return ($_[0] & 0) | $N;
}