1 665c255d 2023-08-04 jrmu (define (square x) (* x x))
 2 665c255d 2023-08-04 jrmu (define (sum-of-squares x y) (+ (square x) (square y)))
 3 665c255d 2023-08-04 jrmu (define (sum-sqr-two-larger x y z)
 4 665c255d 2023-08-04 jrmu   (cond ((and (> x z) (> y z)) (sum-of-squares x y))
 5 665c255d 2023-08-04 jrmu 	((and (> x y) (> z y)) (sum-of-squares x z))
 6 665c255d 2023-08-04 jrmu 	(else (sum-of-squares y z))))
 7 665c255d 2023-08-04 jrmu (sum-sqr-two-larger 1 2 3)
 8 665c255d 2023-08-04 jrmu 13
 9 665c255d 2023-08-04 jrmu (sum-sqr-two-larger 4 3 9)
10 665c255d 2023-08-04 jrmu 97
11 665c255d 2023-08-04 jrmu (sum-sqr-two-larger 7 3 1)
12 665c255d 2023-08-04 jrmu 58