one-over-f:floating_misc — ordinary primitive
FORTH
1/F (f: x -- 1/x )();p4:"one-over-f";
1/F (f: x -- 1/x )(
)