FTRUNC
FTRUNC
FTUCK
FTRUNC
*
FTRUNC
( x -- x' )
EXTENSIONS
fpnostack
ordinary primitive