(define x 0)
(begin (set! x 5)
       (+ x 1))