{for($(FS=_)=$0;$++i;)print substr(s="ABCDEFGHIJKLMNOPQRSTUVWXYZ",1,match(s,$i))}