;; -*- lisp -*-
-(progn
- (cond
- (0 (+ X 2 (* 3 4) (- 3 4)))
- (1 (+= X 10)))
- (if (> 20 X 10)
- (progn
- (<<= X 2)
- (set Y "abc")
- (+= Y "def"))
- (while (> X 7)
- (/= X 2))
- (set Y "ABC")
- (set Z (+ Y "def")))
- (insert "kkk"))
+(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")