#!/usr/bin/perl

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