#! /usr/bin/perl

$maxpara = $ARGV[0];
shift;
$npara = 0;
$inpara = 0;

while (<>) {
	chop;
	if (/^$/) {
		if ($inpara) {
			$inpara = 0;
			$npara++;
			if ($npara >= $maxpara) {
				last;
			}
		}
	} else {
		$inpara = 1;
	}
	print;
	print "\n";
}