main :: IO ()
main = getLine >> sum <$> getNums >>= print
  where
    getNums = map read . lines <$> getContents :: IO [Integer]