F0>
F/
F0>
F0>
*
F0>
(f: x -- s: flag )
FORTH/BASE
floating_misc
ordinary primitive