reverse.scm

(define (last-pair list1)
  (if (= (length list1) 1)
      (car list1)
      (last-pair (cdr list1))))
(define (but-last list1)
  (if (= (length list1) 1)
      '()
      (cons (car list1) (but-last (cdr list1)))))
(define (reverse x)
  (if (null? x)
      '()
      (cons (last-pair x) (reverse (but-last x)))))

(define (deep-reverse x)
  (list (reverse (cadr x)) (reverse (car x))))