Последний элемент списка

Определите процедуру last-pair , которая возвращает список, содержащий только последний элемент данного (непустого) списка.

(last-pair (list 23 72 149 34))
(34)

---