; define fibonacci function
(defun fib (n)
  (cond
    ((eq n 0) 0)
    ((eq n 1) 1)
    (t
      (+
        (fib (- n 1))
        (fib (- n 2))
      )
    )
  )
)

; compute the 8th element in the fibonacci sequence
(fib 8)

(quit)