#!usr/bin/perl -w

use integer;
shift;
while (<>) { $tot += $_ }
print "$tot\n";