SICP 問題 2.57

(define (augend s)
  (if (null? (cdddr s))
      (caddr s)
      (cons '+ (cddr s))))

(define (multiplicand p)
  (if (null? (cdddr p))
      (caddr p)
      (cons '* (cddr p))))

これ作るので精一杯でした．
make-sumやmake-productを可変長引数に対応できるように変更するのは難しい．．．