* SIGN ( a -- ) put the sign of the value into the hold-space, this is the forth-style output formatting, see >HOLD
SIGN
( a -- )
>HOLD
core ordinary primitive