eval.txt

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