dir=/home1/tamblayo/mail/inhedo.com/informeges/cur

echo $1
echo "==========================================="
awk ' { if(length==76)  print substr($0,1,length-1); else print   } ' $1  | 
awk -F">" '
$0=="" { next  } 
/Content-Type: text\/html;/ { getline; getline; getline;r=1 }
r=="" { next }
NF==1 { printf "%s",$0 ;next }
{
	#print  "\n=====\nNF="NF"\n"$0"\n================="
	for (i=1;i<NF;i++) printf "%s>\n",$i 
	printf "%s",$NF
}


' -  | tee LINT |
awk -F">" '
substr($1,1,1)=="[" {
r=split($0,a,"[")
print r
for (i=2;i<=r;i++) { split(a[i],b,"&") ; print "S^"++rs"^"b[1] } 
next
}
/class=3Dss-choice-item-control/ { getline
if(index($0,"(X")) {rrc++ ;rc++;getline;getline; split($0,a,"<") ; print  "C^"rc"^"a[1] }
}
/style=3D.color:#666666/ { getline
if(index($0,"(&nbsp")) rrc++
if(index($0,"(X")) {rrc++ ;rc++;print "C^"rc"^"((rrc-1)%11-1) } 
}
/style=3D.color:#545454/ { getline 
rt++
split($0,a,"<") ; print  "T^"rt"^"a[1] }
' 
