ex1-3.scm

(define (square x) (* x x))
(define (sum-of-squares x y)
  (+ (square x) (square y)))
(define (max x y) (if (> x y) x y))
(define (sum-of-squares-of-two-larger x y z)
(if (> x y) 
	(sum-of-squares x (max y z)) 
	(sum-of-squares y (max x z))
))