#| Для этого упражнения нет проверок.
Любое решение будет считаться успешным ответом. |#
(define (deep-reverse list)
  (if (null? (cdr list))
      (cons (if (pair? (car list))
                (deep-reverse (car list))
                (car list)) nil)
      (append (deep-reverse (cdr list)) (cons (if (pair? (car list))
                                             (deep-reverse (car list))
                                             (car list)) nil))))