
use strict 'vars';
sub repeat {
  my ($what, $how_many) = @_;
  my $result = '';
  for (1 .. $how_many) {
    $result = $result . $what;
  }
  return $result;
}

die "Usage: $0 string number\n" unless @ARGV == 2;
my $string = repeat(@ARGV);
print "$string\n";

