(define-syntax inc!
  (syntax-rules ()
    ((_ x)
     (set! x (+ x 1)))
    ((_ x delta)
     (set! x (+ x delta)))))