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