#| BEGIN (Write your solution here) |#
(define (deep-reverse list)
  (define (iter lst acc)
    (if (null? lst)
        acc
        (let ((elem (if (pair? (car lst))
                        (deep-reverse (car lst))
                        (car lst))))
          (iter (cdr lst) (cons elem acc)))))
  (iter list nil))

(define nil '())
#| END |#