SICP 問題 2.87

;; polynominal-package
(define (=zero? p)
  (= 0 (coeff p)))

(put '=zero? '(polynominal)
     (lambda (p) (=zero? p)))