Глубокий переворот списка

Измените свою процедуру reverse из упражнения 2.18 так, чтобы получилась процедура deep-reverse , которая принимает список в качестве аргумента и возвращает в качестве значения список, где порядок элементов обратный и подсписки также обращены. Например:

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

x
((1 2) (3 4))

(reverse x)
((3 4) (1 2))

(deep-reverse x)
((4 3) (2 1))

---