program alphabet
	implicit none
    integer:: i
    character(len=1)::x
    character,parameter :: large='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
    read(*,*) x
    do i = 1, 26
    if (x==large(i:i)) then
    	write(*,*) 'A'
        stop
        end if
    write(*,*) 'a'
    
    stop
    end program alphabet