Saving accomplishments in Lisp because parentheses

Sum-of-greatest-two

(define (find-largest x y z)
	(cond ((and (> x y) (> x z)) x)
		((and (> y z) (> y x)) y)
		((and (> z x) (> z y)) z)))

(define (find-second-largest x y z)
	(cond ((and (> y x) (< y z)) y)
		((and (> z y) (< z x)) z)
		((and (> x z) (< x y)) x)))

(define (square x) (* x x))

(define (sum-of-greatest x y z) (+ (square (find-largest x y z)) (square (find-second-largest x y z))))