(setq a 10)
(setq b 20)

(if (> a b)
    (println "a is greater than b")
    (println "a is less than or equal to b"))

(defun add-two-numbers (x y)
  (+ x y))
​

(println "Hello, Cadence Skill!")

(setq result (+ 10 5))  ; result = 15
(setq result (* 3 4))   ; result = 12
​

(setq my-list (list 1 2 3 4))
(car my-list)  ; 返回 1
(cdr my-list)  ; 返回 (2 3 4)
​

(setq i 0)
(do ((i (+ i 1))) ((>= i 5)) (println i))  ; 输出 0, 1, 2, 3, 4
​

(catch 'my-error
  (if (< 10 5)
      (throw 'my-error "An error occurred!")
      (println "No error")))
​

(setq my-file (open "input.txt" "r"))
(setq line (read-line my-file))
(close my-file)
​

(setq my-file (open "output.txt" "w"))
(write-line "This is a test line." my-file)
(close my-file)
​