The recursive implement of get n-th element in list

gistfile1.lisp

;; The recursive implement of get n-th element in list
(defun get-n (x y)
  (if (eql x 0)
      (car y)
      (get-n (- x 1) (cdr y))))

(write-line (get-n 0 '("a" "b" "c" "d" "e")))
(write-line (get-n 1 '("a" "b" "c" "d" "e")))
(write-line (get-n 2 '("a" "b" "c" "d" "e")))
(write-line (get-n 3 '("a" "b" "c" "d" "e")))
(write-line (get-n 4 '("a" "b" "c" "d" "e")))