f-power-n:floating_misc — ordinary primitive
FORTH
F^N ( u f: x -- x^u )();p4:"f-power-n";
F^N ( u f: x -- x^u )(
)
For large exponents, use F** instead. Of course u=-1 is large.