(define (deep-reverse l)
  (define (reverse-acc l acc)
    (cond ((null? l) acc)
	  ((pair? (car l)) 
	    (reverse-acc (cdr l) (cons (deep-reverse (car l)) acc)))
	  (else 
	    (reverse-acc (cdr l) (cons (car l) acc)))))
  (reverse-acc l '()))