FNIP
FNEGATE
FNIP
FNIP
*
FNIP
( x1 x2 -- x2 )
FORTH/BASE
floating_misc
ordinary primitive