(define (polynome-value pol x)
  (define (iter coefnum acc)
    (if (= coefnum 0)
        (+ acc (coefficient 0 pol))
        (iter (- coefnum 1) (* (+ (coefficient coefnum pol) acc) x))))
  (iter (order pol) 0))