遞迴模板 1 單條件單尾遞迴

(defun fn (x)
  (cond (test-condition the-value)
        (t (fn reduced-argument-x))))