open(IN,"rnalist");
while(<IN>) {
	chomp;
	@F=split(/\t/,$_);
	@letters=split(//,$F[2]);
	print "      track\tSubject$F[1]_RNA_DF\n";
	print "      parent DFCov off\n";
	print "      bigDataUrl\trna\/DF\/Subject$F[1]_RNA_DF.bigWig\n";
	print "      shortLabel\tSubject$F[1]_RNA_DF\n";
	print "      longLabel Subject$F[1]_RNA_DF\n";
	print "      type\tbigWig\n";
	print "      visibility\tfull\n";
	print "      alwaysZero\ton\n";
	print "      autoScale\ton\n";
	print "      maxHeightPixels\t1:30:1000\n";
	print "      color\t20,20,255\n";
	print "      subGroups view\=DFCov ancestry\=$F[3] sex\=$letters[0] celltype\=DF subject\=Subject$F[1] eff\=$F[4]\n\n";

	print "      track\tSubject$F[1]_RNA_iPS\n";
	print "      parent iPSCov off\n";
	print "      bigDataUrl\trna\/iPS\/Subject$F[1]_RNA_iPS.bigWig\n";
	print "      shortLabel\tSubject$F[1]_RNA_iPS\n";
	print "      longLabel Subject$F[1]_RNA_iPS\n";
	print "      type\tbigWig\n";
	print "      visibility\tfull\n";
	print "      alwaysZero\ton\n";
	print "      autoScale\ton\n";
	print "      maxHeightPixels\t1:30:1000\n";
	print "      color\t200,0,0\n";	
	print "      subGroups view\=iPSCov ancestry\=$F[3] sex\=$letters[0] celltype\=iPS subject\=Subject$F[1] eff\=$F[4]\n\n";
}
close(IN);