SICP 1.3

(define (println x) (display x) (display "\n"))

(define (square x) (* x x))
(define (bigger x y) (if (> x y) x y))

(define 
    (proc x y z)
    (+ 
        (square (bigger x y)) 
        (if (> x y) 
            (square (bigger y z)) 
            (square (bigger x z))
        )
    )
)

(println (proc 1 2 3))
(println (proc 5 1 4))
(println (proc 6 5 4))