#################################
#!/usr/bin/perl -w

my @word;
my @pron;
my $a;

$a = 0;


@pron = split("\t", <STDIN>);
@word = split("\t", <STDIN>);

while(1)
{

        print "$pron[$a]-$word[$a]";
        $a++;
}

$a = 0

##################################