#!/usr/bin/perl

# John Kerl
# kerl.john.r@gmail.com
# 2005-06-08

die "Usage: $0 {n} [input]\n" unless @ARGV;
$n = shift @ARGV;

$i = 0;
while ($line = <>) {
	chomp $line;
	$i++;
	print "$line\n";
	if ($i == $n) {
		print "\n";
		$i = 0;
	}
}