;; -*- lisp -*-

(defun temp (a b c)
  (cond ((> a 0)
	 (+= a 1)
	 (+ a b c))))

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