F2/
* F2/ ( x -- x/2 )

FORTH/BASE floating_misc ordinary primitive