Переворот списка

Определите процедуру reverse , которая принимает список как аргумент и возвращает список, состоящий из тех же элементов в обратном порядке:

(reverse (list 1 4 9 16 25))
(25 16 9 4 1)

---