2008-04-15 Ex 2.27 SICP (define (deep-reverse xs) (if (or (null? xs) (not (pair? xs))) xs (append (deep-reverse (cdr xs)) (list (deep-reverse (car xs))))))