Ex 2.27

(define (deep-reverse xs)
  (if (or (null? xs) (not (pair? xs))) xs
      (append (deep-reverse (cdr xs)) (list (deep-reverse (car xs))))))