(define (solution x y z)
  (define (sq x)(* x x))
  (define (good? i)(> (min x y z)))
  (foldl + 0 (map sq (filter good? (list x y z)))))