{-WETT-} {- Diese Zeile nicht entfernen -}
sum_max_sq :: Integer -> Integer -> Integer -> Integer
sum_max_sq x y z = let [_,a,b] = sort [x, y, z] in a^2 + b^2
{-TTEW-} {- Diese Zeile nicht enfernen! -}