#!/usr/bin/perl -w

use strict;

open (FILE, '<', shift);
my @file = <FILE>;
close (FILE);
my $first = shift @file;

foreach my $line (@file) {
	chomp $line;
	for (my $i = 1; $i <= $first; $i++) {
		print "Line $i: $line\n";
	}
}