character c
do1 j=1,99
call fget(c)
1 print'(99a1)',(i,i=65,ichar(c))
end