#!/usr/bin/jperl
$count = 0;
while (<STDIN>) {
  if ($_ =~ /^$/) {
     $count++;
  } else {
     $count = 0;
  }
  if ($count <= $ARGV[0]) {
    print $_;
  }
}
