Estoy tratando de aprender el esquema a través de SICP. El ejercicio 1.3 dice lo siguiente: Defina un procedimiento que toma tres números como argumentos y devuelve la suma de los cuadrados de los dos números más grandes. Por favor comenta cómo puedo mejorar mi solución.

(define (big x y)
    (if (> x y) x y))

(define (p a b c)
    (cond ((> a b) (+ (square a) (square (big b c))))
          (else (+ (square b) (square (big a c))))))