F0>
* F0> (f: x -- s: flag )

EXTENSIONS fpnostack ordinary primitive