use strict;
	use warnings;

	use utf8;
	use Data::Dumper;

	use List::Util qw(sum);

my $inp = decode('utf8', <STDIN>);

my @array = splir(" ", $inp);

print &SUM( @array ), "\n";

sub SUM {
    return(
        List::Util::sum(@_)
    );
}