1 (define (augend s)
2   (if (null? (cdddr s))
3       (caddr s)
4       (cons '+ (cddr s))))