(define (make-term x y)
  (list x y))

(define (make-polynomial variable . terms)
  (list variable terms)
  (define (poly-variable poly)
    (list-ref poly 0))
  (define (poly-exponent poly)
    (list-ref poly 1))
    (begin
      (display "variable is: ")
      (display variable)
      (newline)
      (display "the terms are: ")
      (display "(")
      (display (poly-variable terms))
      (display variable)
      (display "^")
      (display (poly-exponent terms))
      (display ")")
      (newline)))