(define (make-vkv a b c)
  (lambda (x) (+ (* a (sqr x)) (* b x) c)))