1 665c255d 2023-08-04 jrmu (define (augend s)
2 665c255d 2023-08-04 jrmu   (if (null? (cdddr s))
3 665c255d 2023-08-04 jrmu       (caddr s)
4 665c255d 2023-08-04 jrmu       (cons '+ (cddr s))))