1.3 Exercise 1.3

(define (ex1-3 a b c)   (define (sqr x) (* x x))   (define (sum-sq lst)     (+ (sqr (car lst)) (sqr (cadr lst))))   (define (two-largest a b c)     (remove (min a b c) (list a b c)))   (sum-sq (two-largest a b c)))