enforce lit-word! param
incr: func [ {Increment a value by 1.} :word [lit-word!] /by {Change by this amount} ; /skip ? value ][ set word add get word any [value 1] ] ;>> a: 0 ;== 0 ;>> incr a ;** Script Error: incr expected word argument of type: ;lit-word ;** Near: incr a ;>> incr 'a ;== 1