Define a procedure that takes three numbers as arguments and returns
the sum of the squares of the two larger numbers.

(define (sos a b c)
(cond ((> a b) (sos b a c))
((> b c) (sos a c b))
(#t (+ (* b b) (* c c)))))

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)