f-square:floating_misc — ordinary primitive
FORTH
F^2 (f: x -- x^2 )();p4:"f-square";
F^2 (f: x -- x^2 )(
)