(prog (var x 3) (var y 4) (begin (var w 0) (print y) (set y 5) (var y 0) (set y 19) (set x 90) (+ y w x) (begin (var x 0) (var y 9) (+ x y) ) (* x y) ) (print y) )