DOUBLE PRECISION A,B,C,D,POWDD
C
   99 CONTINUE
C
      READ(*,*) A,B
      IF (A.EQ.0.0D0) STOP
      C= A**B
      C= ABS(A)**B
C      C= POWDD(A,B)
      D= EXP(B*LOG(ABS(A)))
      WRITE(*,*) C,D
      GOTO 99
C
      END