#!/usr/bin/perl -w
use strict;
my @slice = @ARGV;
my $line;
while (defined ($line = <STDIN>)) {
	chomp $line;
	print join "\t", ('', split /\t/, $line, -1)[@slice];
	print "\n";
}