eval.txt

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