main = do
  presents <- read <$> getContents
  let solution = head $ dropWhile ((< presents) . (* 11) . sum . factors) [1 ..]
  print solution
main = do
  presents <- read <$> getContents
  let solution = head $ dropWhile ((< presents) . (* 11) . sum . factors) [1 ..]
  print solution
main = do
  presents <- read <$> getContents
  let solution = head $ dropWhile ((< presents) . (* 11) . sum . factors) [1 ..]
  print solution