Problem:
Score : 200 points

Problem Statement

Niwango created a playlist of N songs.
The title and the duration of the i-th song are s_i and t_i seconds, respectively.
It is guaranteed that s_1,\ldots,s_N are all distinct.

Niwango was doing some work while playing this playlist. (That is, all the songs were played once, in the order they appear in the playlist, without any pause in between.)
However, he fell asleep during his work, and he woke up after all the songs were played.
According to his record, it turned out that he fell asleep at the very end of the song titled X.

Find the duration of time when some song was played while Niwango was asleep.

Constraints

1 \leq N \leq 50

s_i and X are strings of length between 1 and 100 (inclusive) consisting of lowercase English letters.

s_1,\ldots,s_N are distinct.

There exists an integer i such that s_i = X.

1 \leq t_i \leq 1000

t_i is an integer.

Input

Input is given from Standard Input in the following format:

N
s_1 t_1
\vdots
s_{N} t_N
X

Output

Print the answer.

Sample Input 1

3
dwango 2
sixth 5
prelims 25
dwango

Sample Output 1

30

While Niwango was asleep, two songs were played: sixth and prelims.

The answer is the total duration of these songs, 30.

Sample Input 2

1
abcde 1000
abcde

Sample Output 2

0

No songs were played while Niwango was asleep.

In such a case, the total duration of songs is 0.

Sample Input 3

15
ypnxn 279
kgjgwx 464
qquhuwq 327
rxing 549
pmuduhznoaqu 832
dagktgdarveusju 595
wunfagppcoi 200
dhavrncwfw 720
jpcmigg 658
wrczqxycivdqn 639
mcmkkbnjfeod 992
htqvkgkbhtytsz 130
twflegsjz 467
dswxxrxuzzfhkp 989
szfwtzfpnscgue 958
pmuduhznoaqu

Sample Output 3

6348

Solution in Perl (v5.18.2) (judge verdict: Wrong Answer)

use strict;
#use Tie::IxHash;

my $i = 0;
my @mlist = ();
while(defined(my $line = <STDIN>)){
    chomp;
    $mlist[$i] = $line;
    $i ++;
}

my $n = shift @mlist;
if($n == 1){
    print 0;
    exit;
}

my $x = pop @mlist;

=pod
print "$n\n";
print "$x\n";
print "@mlist\n";
=cut

my @mlists = ();
my @mlistt = ();
for(my $i = 1; $i <= $n; $i++){
    my @kari;
    @kari = split(/ /,$mlist[$i - 1]);
    $mlists[$i - 1] = $kari[0];
    $mlistt[$i - 1] = $kari[1];
}

my $i = 0 ;
while(@mlistt) {
    if ($mlists[$i] eq $x){
        shift @mlistt;
        my $total = 0;
        my $i = 0;
        while(@mlistt){
            $total = $total + $mlistt[$i];
            shift @mlistt;
        }
        #@mlistt = @$mlistt;
        #print (&sum(\@mlistt));
        print $total;
        last;
    }else{
        shift @mlistt;
        shift @mlists;
    }
}