(define (make-polynome coordinatenlijst)
  (list->vector coordinatenlijst))
(define (order pol)
  (- (vector-length pol) 1))
(define (coefficient nummer pol)
  ;het nummer van de coefficient komt overeen met het nummer van de macht
  ;voor de variabele...
  (let ((o (order pol)))
    (if (or (< nummer 0) (> nummer o))
      0
      (vector-ref pol (- o nummer)))))