#!/usr/bin/perl -n
BEGIN {
	$f = ($ARGV[0] || 1) - 1;
	$min = $ARGV[1] || 1;
	$max = $ARGV[2] || -1;
	@ARGV = ();
	$v_prev = "\t";
}
chomp;
if ($_ ne "") {
	@F = split /\t/, $_, -1;
	$v = $F[$f];
	if ($v ne $v_prev) {
		print "$group\n" if $count >= $min && ($max<0 || $count <= $max);
		$group = "$_\n";
		$v_prev = $v;
		$count = 1;
	} else {
		$group .= "$_\n";
		++$count;
	}
}
END {
	print "$group\n" if $count >= $min && ($max<0 || $count <= $max);
}