import Data.Char
main = interact $ unlines . return . show . secret_number
secret_number = sum . map (read::String->Int) . words . fill_wo_numbers
 where
  fill_wo_numbers "" = []
  fill_wo_numbers (c:cs) = (if isDigit c then c else ' ') : fill_wo_numbers cs