program moji
character(1)::a
k=0
read*,a
 if(a=='A')then
 print*,'A'
 k=1
 end if
  if(a=='B')then
 print*,'A'
  k=1
 end if
  if(a=='C')then
 print*,'A'
  k=1
 end if
  if(a=='D')then
 print*,'A'
  k=1
 end if
  if(a=='E')then
 print*,'A'
  k=1
 end if
  if(a=='F')then
 print*,'A'
  k=1
 end if
  if(a=='G')then
 print*,'A'
  k=1
 end if
  if(a=='H')then
 print*,'A'
  k=1
 end if
  if(a=='I')then
 print*,'A'
  k=1
 end if
  if(a=='J')then
 print*,'A'
  k=1
 end if
  if(a=='K')then
 print*,'A'
  k=1
 end if
  if(a=='L')then
 print*,'A'
  k=1
 end if
 if(a=='M')then
 print*,'A'
  k=1
 end if
  if(a=='N')then
 print*,'A'
  k=1
 end if
  if(a=='O')then
 print*,'A'
  k=1
 end if
  if(a=='P')then
 print*,'A'
  k=1
 end if
  if(a=='Q')then
 print*,'A'
  k=1
 end if
   if(a=='R')then
 print*,'A'
  k=1
 end if
   if(a=='S')then
 print*,'A'
  k=1
 end if
   if(a=='T')then
 print*,'A'
  k=1
 end if
   if(a=='U')then
 print*,'A'
  k=1
 end if
    if(a=='V')then
 print*,'A'
  k=1
 end if
    if(a=='W')then
 print*,'A'
  k=1
 end if
    if(a=='X')then
 print*,'A'
  k=1
 end if
    if(a=='Y')then
 print*,'A'
  k=1
 end if
    if(a=='Z')then
 print*,'A'
  k=1
 end if
 
 IF(K==0)THEN
 PRINT*,'a'
 end if
end program moji