F^2
* F^2 ( x -- x^2 )

FORTH/BASE floating_misc ordinary primitive