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 Perl (5.26.1) (judge verdict: Accepted)

use strict;
use warnings;
use utf8;

use Data::Dumper;
use feature qw(say);

my $n = <STDIN>;
chomp $n;

my $small_character_list = ['a'..'z'];
if (scalar grep { $_ eq $n } @$small_character_list) {
    say 'a';
} else {
    say 'A';
}