(begin
    (var x 10)

    (while (!= x 0)
      (set x (- x 1))))