SIGN
* SIGN ( a -- )

put the sign of the value into the hold-space, this is
the forth-style output formatting, see >HOLD

core ordinary primitive