#!/usr/bin/perl -w

my @in;
while(chomp($_ = )) {
push @in, $_;
last if $. >= 2;
}
print $in[0] x $in[1], "\n";