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