eval.txt

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