This BCX code,
DIM cum#[1000]
DIM tcont, pd#
tcont = 1
cum#[tcont] = 17
pd# = 2
PRINT (cum#[tcont] ^ (1 / ((tcont + 1) / pd#)) - 1) * 100
PRINT 7 ^ (MOD(13, 7))
PRINT (SIN(13)) ^ (SIN(13))
PRINT pd ^ (pd ^ 2)
PRINT pd ^ pd
PRINT 7 ^ (IMOD(3,2))
PRINT POW(2, POW(2, POW(2, 2)))
PRINT 2 ^ (2 ^ (2 ^ (2)))
PRINT pd ^ pd - pd ^ (LOG(pd)) - (SIN(pd)) ^ 7
back in the day when things were right proper, would translate, in part, to this
printf("% .15G\n",(double)(pow(cum[tcont],(1/((tcont+1)/pd)))-1)*100);
printf("% .15G\n",(double)pow(7,(fmod(13,7))));
printf("% .15G\n",(double)pow((sin(13)),(sin(13))));
printf("% .15G\n",(double)pow(pd,(pow(pd,2))));
printf("% .15G\n",(double)pow(pd,pd));
printf("% .15G\n",(double)pow(7,(imod(3,2))));
printf("% .15G\n",(double)pow(2,pow(2,pow(2,2))));
printf("% .15G\n",(double)pow(2,(pow(2,(pow(2,(2)))))));
printf("% .15G\n",(double)pow(pd,pd)-pow(pd,(log(pd)))-pow((sin(pd)),7));
Now, since BCX 6.8.0 there is this
printf("% .15G\n",(double)( pow ( cum [ tcont ] , ( 1 / ( ( tcont + 1) / pd))) - 1)*100);
printf("% .15G\n",(double)pow( 7 , ( fmod ( 13 , 7))));
printf("% .15G\n",(double)pow( ( sin ( 13)) , ( sin ( 13))));
printf("% .15G\n",(double)pow( pd , ( pow ( pd , 2))));
printf("% .15G\n",(double)pow( pd , pd));
printf("% .15G\n",(double)pow( 7 , ( imod ( 3 , 2))));
printf("% .15G\n",(double)pow( 2 , pow ( 2 , pow ( 2 , 2))));
printf("% .15G\n",(double)pow( 2 , ( pow ( 2 , ( pow ( 2 , ( 2)))))));
printf("% .15G\n",(double)pow( pd , pd)-pow( pd , ( log ( pd)))-pow( ( sin ( pd)) , 7));