(define a (list 1 8 5 4))

(define mk_hsf (lambda (koefs)
    (if (null? koefs)
       (lambda (x) 0)
       (lambda (x) (+ (car koefs)
                      (* x
                         ((mk_hsf (spy (cdr koefs))) x) ))) )))
			 
			 
			 
	
((mk_hsf a) 5)