import qualified Data.ByteString.Char8 as C
import Data.Maybe (mapMaybe)

main :: IO ()
main = print . sum . map fst .
    mapMaybe C.readInt . C.words =<< C.getLine