(define (square a) (* a a))
(define (sumsquare a b) (+ (square a) (square b)))
(define (proc1 a b c) (cond
 (or (>= a b c) (>= b a c)) (sumsquare a b)
 (or (>= a c b) (>= c a b)) (sumsquare a c)
 (or (>= b c a) (>= c b a)) (sumsquare b c)
))


Warning: the following toplevel variables are referenced but un\
bound:
  or (in proc1)
  or (in proc1)
  or (in proc1)