import Control.Applicative import Control.Monad import qualified Data.ByteString.Char8 as B import Data.Maybe (fromJust) import Text.Printf import Debug.Trace main = do xs <- fmap (read :: String -> Int) . words <$> getLine print $ sum xs