awk -F">" '
substr($1,1,1)=="[" {
r=split($0,a,"[")
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] }
'  $1
