BEGIN{FS=OFS="\t";
 }{
     c=$1;s=$2;e=$3;st=$6;
     nt=split($7,t,",");
     gi=t[1];ok=1;
     for (ti=2;ti<=nt;ti++){
	 if (t[ti]!=gi){ok=0;break;}
     }
     if (ok==0) {print "ERR diff genes in "$0>>"/dev/stderr";}
     nt=split($9,t,",");ne=0;ni=0;
     for (ti=1;ti<=nt;ti++){
	 if (t[ti]=="E"){ne++;}else{ni++;}
     }
     if (ne>=ni){x="E";}else{x="I";}
     print $1,$2,$3,$4,$5,$6,x
 }