module Main where

main :: IO ()
main = do
  { n <- getInt
  ; print =<< loop n 0
  }

loop :: Int -> Int -> IO Int
loop 0 s = return s
loop n s = loop (pred n) . (s +) =<< getInt

getInt :: IO Int
getInt = read <$> getLine