my $K = <>;
my $sum = 0;
$sum += $_ for split ' ', "5 6 7 8\n", $K;
print $sum;