#!/usr/bin/perl -w

use strict;

@ARGV == 0
	or die "syntax: $0 < input > output\n";

my @buf;

my $line;

while (defined ($line = <STDIN>)) {
	chomp $line;
	if ($line =~ /^$/) {
		print join "\t", @buf;
		print "\n";
		@buf = ();
	} else {
		push @buf, $line;
	}
}
if (@buf) {
	print join "\t", @buf;
	print "\n";
}