#!/usr/bin/perl

my $number = shift;

print $number * <>;
print "\n";
