sub isNumber
{
  defined $_[0] or return 0;
  my $R = 1;
  local $SIG{__WARN__} = sub { $R = 0; };
  return ($_[0] < 0) ? $R : $R;
}