use Array:all;
use String:{tochar};

inline int mpyXII(int y)
{ /* signum int/double */
   if( 0 == y) {
 StdIO::print(tochar("zero"));
    z = 0;
  } else {
    if( 0 < y) {
 StdIO::print(tochar("pos"));
      z = 1;
    } else {
 StdIO::print(tochar("neg"));
      z = -1;
    }
  }
  return(z);
}

int starIII(int x, int y)
{  /* number to integer power */
  z = 1;
  for( i=0; i<y; i++) {
    z = z * x;
  }
  return( z);
}

int main()
{ 
 int A;
 int C;
  A=starIII( -2, 31);
  StdIO::print( [ A, mpyXII(A)]); 

  C = -2147483647;
  C = C - 1;  /* Another SAC bug - parser can't represent (-2)^31 */
  StdIO::print( [ C, mpyXII(C)]); 

 return(0);
}