Increment/decrement ++ / -- Incr Decr set-val

increment.red

Red []
; pass by reference

incr: func ['x][set x (get x) + 1]
decr: func ['x][set x (get x) - 1]
increment: :incr
decrement: :decr
++: :incr
--: :decr
set-val: function ['var val][set var :val]

comment {
i: 0
print incr i
print decr i
print ++ i
print -- i
print set-val i 100
}