#!/usr/bin/perl -w

use strict;

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

my $line;

while (defined ($line = <STDIN>)) {
	chomp $line;
	for my $field (split /\t/, $line, -1) {
		print "$field\n";
	}
	print "\n";
}