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

EXTENSIONS fpnostack ordinary primitive