#!/usr/bin/perl

my ($p1,$p2,$p3,$p4,$p5)=();
my ($s1,$s2,$s3,$s4,$s5)=();
open(I,"$ARGV[0]");
open(O,">$ARGV[1]");
while($l=<I>) {
	while($l!~/\t[\s]*$/) {
		$m=<I>;
		$l.=$m;
	}
	($s1,$s2,$s3,$s4,$s5)=split(/\t/,$l);
	$s5=~s/\n/ /g;
	$s5=~s/\"//g;
	if($p1 ne $s1) {
		print ">\n";
		print "<$s1\n";
	}
	if($p2 ne $s2) {
		print "	>\n";
		print "	<$s2\n";
	}
	if($p3 ne $s3) {
		print "		>\n";
		print "		<$s3\n";
	}
	print "		$s4 $s5\n";
	($p1,$p2,$p3,$p4,$p5)=($s1,$s2,$s3,$s4,$s5);
	
}
close(I);
close(O);