{-# LANGUAGE OverloadedStrings #-}

import qualified Data.ByteString.Char8 as C
import Data.Maybe
import Data.List (foldl')

main = print . foldl' (+) 0 . map (fst . fromJust . C.readInt) . tail . C.words =<< C.getContents