WeBlowg Side

 (define (addend s) (cadr s))
 (define (augend s)
   (if (null? (cdddr s))
       (caddr s)
       (cons '+  (cddr s))))
 
 (define (multiplier p) (cadr p))
 (define (multiplicand p) 
   (if (null? (cdddr p))
       (caddr p)
       (cons '*  (cddr p))))