module Main where

import Control.Monad
import Prelude

main :: IO ()
main = do
     str <- getLine -- читаем строку
     -- words получает список слов, разделенных пробельными символами
     -- map (read :: String -> Int) приводит каждое слово к Int
     print $ sum $ map (read :: String -> Int) (words str)