2-
* 2- ( i -- i )

substract 2 from the value on stack (and leave the result there)
 simulate:
   : 2- 2 - ;

FORTH/FORTH forth_83 ordinary primitive