#!/usr/bin/perl -w
use strict;
my $total = 0;
while (<>) {
    my @f = split;
    $total += $f[0];
}
print $total, "\n";