(define  x  0)
	
(begin  
     x
     (if  (=  x  0)
          (set!  x  (+ 2 3))
          (set!  x  (+ 6 5)))