NEGATE NAME> NIP
NEGATE ( value -- value' )  
ansi .6.1.1910 <CORE>
return the arithmetic negative of the (signed) cell 
 simulate:   : NEGATE -1 * ;

reference: p4_negate in ../src/core.c:1493, export CO NEGATE