character c;do1;1 print'(99a1)',(i,i=0**fget(c)+64,ichar(c));end