# -- perl --

&PrintOnScreen;

#*************************************************
#****************** PROCEDURES *******************
#*************************************************
sub PrintOnScreen {


	$line=<STDIN>;
   chomp($line);
	while($line ne "")
	{
		$line=~ s/(\s+)/ /g;
		@linesplit=split(/ /,$line);
      printf ("%-4s ",$linesplit[0]);

      &PrintName($linesplit[1],25);
      print "\n";
		$line=<STDIN>;
      chomp($line);
	}
}
	

sub PrintName {
	my($name,$NumberOfTimes)=@_;
	@name1=split(//,$name);
	for($i=0;$i<$NumberOfTimes;$i++)
	{
		printf("%s",$name1[$i]);
	} 
}
