Sorry for the long wait on making a video, I have been VERY BUSY!! Thank you for watching.
Code:
(defun our-last(a)
(cond
((null (cdr a)) (car a))
(t (append (our-last (cdr a))))))
(defun our-first(a)
(cond
((null (cdr a)) (car a))
(t (append (car a)))))