Вычислить и представить в виде списка полином Лежандра Pk

Написать на языке функционального программирования Scheme эту задачу. Ниже фрагмент программы для вычисления полинома.

(define (p k)

  (pp 0 k (list 1))

 )

 (define (pp n k p0)

  (if (= n k)

   p0

   (pp

    (+ n 1)

    k

    (pa+pb

      (pa*pb (1) p0)

      (pa*pb ((/ -1 (+ n 1) 0 (/ 1 (+ n 1)) (df p0))

    )

  )       

 )

Полином одной переменной a0+a1*x+a2*x^2+a3*x^3+…. хранится в виде списка (list a0 a1 a2 a3 …)