1 (define (square x) (* x x))
2 (define (sum-sqr-two-larger x y z)
3   (cond (> x y z) (square x x)