Do you really want to send ariels a message saying you like their work?
: negate ( n -- -n ) 0 swap - ;