;; IN: a deep-list
;; OUT: a deep-list with all element lists reversed

(define (deep-reverse ls)
  (cond ((null? ls) '())
	((atom? ls) ls)
	(else (reverse (map deep-reverse ls)))))


;; non-map version

(define (deep-reverse ls)
  (cond ((null? ls) '())
	((atom? ls) ls)
	(else (append (deep-reverse (cdr ls))
		      (list (deep-reverse (car ls)))))))