Racket Scheme. Рекурсивное деление полиномов с остатков (через списки)

[zaharZ]

Привет. Решил поработать с полиномами и списками в Racket и столкнулся с задачей деления. Попробовал реализовать и пока получается не очень.

(define pa/pb
  (lambda (pol1 pol2)
    (if (null? pol1)
        pol2
        (if (null? pol2)
            pol1
     (cons (/ (car pol1) (car pol2))
           (pa/pb (cdr pol1) (cdr pol2))
     )
    )
   )
  )
)

 racket, scheme