#!/usr/bin/perl
$n = $ARGV[0] || 2;
while(defined ($_=<STDIN>)) {
	chomp;
	push @q, $_;
	if (@q == $n) {
		print join "\t", @q;
		print "\n";
		shift @q;
	}
}