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