(x /= y) && (sumOfDivisors y - y == x) = Just y
  | otherwise = Nothing
  where y = sumOfDivisors x 
isAbundant :: Integral a => a -> Bool
isAbundant n = n + n < sumOfDivisors n
isAbundant n = n + n < sumOfDivisors n