import Control.Monad (replicateM) solve :: Integral a => a -> [a] -> a solve n as = sum as main = do n <- readLn as <- replicateM n readLn print $ solve n as