sub andNeg {
  return (($_[0]^$_[1]) < 0);
}