BEGIN{FS=_}{while($++i)print substr(a="ABCDEFGHIJKLMNOPQRSTUVWXYZ",1,index(a,$i))}