#!/usr/bin/perl -w

use strict;

my @fields = map {$_>0 ? $_-1 : $_} @ARGV;

unless (@fields) {
	die "syntax: $0 fields...\n";
}

my @F;
my @slice;
my $slice;
my $last_slice = '';

my @rsf = reverse sort @fields;

if (defined ($_ = <STDIN>)) {
chomp;
@F = split /\t/, $_, -1;
@slice = @F[@fields];
$last_slice = join "\t", @slice;
print "$last_slice";
for (@rsf) { splice @F, $_, 1 }
print "\t", join "\t", @F;

while (defined ($_=<STDIN>)) {
	chomp;
	@F = split /\t/, $_, -1;

	@slice = @F[@fields];
	$slice = join "\t", @slice;

	if ($slice ne $last_slice) {
		print "\n$slice";
	}

	for (@rsf) { splice @F, $_, 1 }

	print "\t", join "\t", @F;

	$last_slice = $slice;
}

print "\n";
}