program alphabet
	implicit none
    integer:: i
    character(len=1)::x
    character(len=26),parameter :: large='ABCDEFGHIJKLMNOPQRSTUVWXYZ'

	read(*,fmt='(a)') x
    
    do i = 1, 26
    	if ( x==large(i:i) ) then
    		write(*,fmt='(a)') 'A'
    	    stop
        end if 
    end do
    write(*,fmt='(a)') 'a'
    stop
end program alphabet


