* 1- ( val -- val-1 ) return the value decremented by one simulate: : 1- 1 - ;
1-
( val -- val-1 )
simulate: : 1- 1 - ;
core ordinary primitive