import qualified System.IO.Lazy.Input as LI
import System.Environment (getArgs)
import Data.Char
main = print =<< LI.run . fmap (sum . map (toInteger . ord)) . LI.concat . map LI.readFile =<< getArgs