F2*
F0=
F2*
F2*
*
F2*
( x -- x*2 )
FORTH/BASE
floating_misc
ordinary primitive