eval.txt

   1 ;; -*- lisp -*-
   2
   3 (defun temp (a b c)
   4   (cond ((> a 0)
   5          (+= a 1)
   6          (+ a b c))))
   7
   8 (cond
   9  (0 (+ X 2 (* 3 4) (- 3 4)) (set X 4))
  10  (1 (+= X 10)))
  11 (+= X (temp 1 2 3))
  12 (if (> 20 X 10)
  13     ((<<= X 2)
  14      (set Y "abc")
  15      (+= Y "def"))
  16   (while (> X 7)
  17     (/= X 2) (+= X 1))
  18   (cond ((> X 1)
  19          (set Y "ABC")
  20          (set Z (+ Y "def")))))
  21 (insert "kkk")