main::IO()
main = do
  xs<-getLine
  print . sum . map (read . (\c-> [c])) . filter (`elem` ['0'..'9']) $ xs