{-# LANGUAGE OverloadedStrings #-} import qualified Data.ByteString.Char8 as C import Data.Maybe main = print . sum . map (fst . fromJust . C.readInt) . tail . C.words =<< C.getContents