#!/usr/bin/perl -w
use strict;

my $total = 0;
while (<>) {
	chomp;
	$total += $_;
}

print "$total\n";