;; -*- lisp -*-

(progn
  (cond
   (0 (+ X 2 (* 3 4) (- 3 4)))
   (1 (+= X 10)))
  (if (> 20 X 10)
      (progn
	(<<= X 2)
	(set Y "abc")
	(+= Y "def"))
    (while (> X 7)
      (/= X 2))
    (set Y "ABC")
    (set Z (+ Y "def")))
  (insert "kkk"))