(define (max a b c)
  (if (> a b)
    (if (> b c)
      (list a b)
      (list a c))
    (if (> a c)
      (list b a)
      (list b c))))

(define (sum-square x y)
  (+ (* x x) (* y y)))

(define (sum-max a b c)
  (apply sum-square (max a b c)))

(sum-max 2 4 4)