(let ((var x 11))
  (begin
    (:= x (- x (if (<> x 10) 1 11)))
    (when (>= x 9) (:= x 3))
    (= x 3)
    (> x 3)
    (< x 3)))