RosettaCodeData/Task/Polynomial-long-division/Common-Lisp/polynomial-long-division-2.lisp

> (divide '((3 . 1) (2 . -12) (0 . -42)) ; x^3 - 12x^2 - 42
          '((1 . 1) (0 . -3)))           ; x - 3
((2 . 1) (1 . -9) (0 . -27)) ; x^2 - 9x - 27
((0 . -123))                 ; -123