use strict;
use warnings;
use Math::BigInt;

while(<>)
{
	chomp; 
	s/^ +//g;
	my @values = split /\s+/;
	my $elemento;
	my $sum = Math::BigInt->new('0');
	foreach $elemento (@values)
	{
		$sum->badd(Math::BigInt->new($elemento));
    }
	print "$sum\n";
	$sum=0;
}