#!/usr/local/bin/xgawk -f
@include xmlcopy
XMLATTR["k"]=="name" || XMLATTR["k"]=="int_name" || XMLATTR["k"]=="name:en" {
     upstr=toupper(XMLATTR["v"])
     XMLATTR["v"]=upstr
     l = length(upstr)
     for(i=0;i<l;i++) hist[substr(upstr,i,1)]++
     }
     {XmlCopy()}
END  { if (XMLERROR) printf("XMLERROR '%s' at row %d col %d len %d\n",
                 XMLERROR, XMLROW, XMLCOL, XMLLEN) | "cat 1>&2"
      for (i in hist) print hist[i],i >"hist"
		 }