BEGIN {FS="|";OFS="\t"
  match(ARGV[1],/[0-9]+/,cnty)}
(/CNTYTOT/) {
  for (i=108;i<=113;i++) sentot += $i}
END {print (cnty[0], sentot) >> "sen_g04.txt"}