User:Richardhsu

 (define (sqrlarge x y z) (if (> x y)                              (if (> y z)                                  (sumsq x y)                                  (sumsq x z)) (if (> x z)                                 (sumsq x y)                                  (sumsq z y)) )) (define (sumsq a b) (+ (sq a) (sq b))) (define (sq a) (* a a))