Problem:
Score : 100 points

Problem Statement

An uppercase or lowercase English letter \alpha will be given as input.
If \alpha is uppercase, print A; if it is lowercase, print a.

Constraints

\alpha is an uppercase (A - Z) or lowercase (a - z) English letter.

Input

Input is given from Standard Input in the following format:

α

Output

If \alpha is uppercase, print A; if it is lowercase, print a.

Sample Input 1

B

Sample Output 1

A

B is uppercase, so we should print A.

Sample Input 2

a

Sample Output 2

a

a is lowercase, so we should print a.

Solution in Fortran (GNU Fortran 9.2.1) (judge verdict: Wrong Answer)

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

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