(define a (cons 1 (cons 8 (cons 5 (cons 4 ()))))) (define mk_hsf (lambda (koefs) (if (null? koefs) (lambda (x) 0) (lambda (x) (+ (car koefs) (* x ((mk_hsf (cdr koefs)) x) ))) ))) (define mk_hsexp (lambda (koefs prem) (if (null? koefs) 0 (list '+ (car koefs) (list '* prem (mk_hsexp (cdr koefs) prem)) )))) (define x 5) (spy (eval (mk_hsexp '(1 8 5 4) 'x))) ((mk_hsf '(1 8 5 4)) 5)