#!/usr/bin/perl

# By Craig Kelley -- using perl 5.8.8

use strict;
use warnings;

my $sum = 0;
while (my $line = <STDIN>) {
   $line =~ s/\D//g;
   for (my $i=0; $i<length($line); $i++) {
      my $char = substr($line, $i, 1);
      $sum += $char;
   }
}
print "$sum\n";