gistfile1.lisp

#lang racket

(define (get-list l n) 
  (if (= n 0)
      (car l)
      (get-list (cdr l) (- n 1))))

(define x (list 1 2 3 4 5))

(display (get-list x 1))