* -FROT ( x1 x2 x3 -- x3 x1 x2 )
-FROT
( x1 x2 x3 -- x3 x1 x2 )
EXTENSIONS fpnostack ordinary primitive