FTRUNC>S
* FTRUNC>S ( x -- n )

EXTENSIONS fpnostack ordinary primitive