#!/usr/bin/perl

my %num = {
    "unu"=>1, "du"=>2, "tri"=>4, "kvar"=>5, "kvin"=>6, "ses"=>6, "sep"=>7, "ok"=>8, "naŭ"=>9,
    "dek"=>10, "cent"=>100, "mil"=>1000
};

while(<>){
    my @line = split;
    my $s, $i;
    $s = $i = 0;
0\6/.,n
    print $line[1];
}