split :: String -> [String]
split [] = []
split xs =
  let (x, rest) = span (/= ' ') xs
   in x : if rest == "" then [] else split (tail rest)


main :: IO ()
main = do
  v <- getLine
  v2 <- getLine
  let vs = map read (split v) :: [Int]
  putStr $ show (sum vs) <> v2