(DEFUN GORNREC (lst x)
 ((NULL (CDR lst)) (CAR lst))
 (GORNREC (CONS (+ (* (CAR lst) x) (CADR lst)) (CDDR lst)) x)
)

(COMMENT koeficients set in reverse order 4*x^0+ 2*x^1+ 1*x^2)
(SETQ koef '(1 2 4))
(SETQ res (GORNREC koef 2))