Ex_1_3

(define (min x y)
	(cond
		((> x y) y)
		((= x y) x)
		((< x y) x)
	)
)

(define (3-min x y z)
	(min
		(min x y)
		(min y z)
	)
)

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

(define (two-large-square x y z)
	(-
		(+ 
			(square x)
			(square y)
			(square z)
		)
		(3-min x y z)
	)
)

(display (two-large-square 1 2 3))