Imports System

Module Program
    Sub Main(args As String())

        Dim a As String = Console.ReadLine()

        If a < "a" Then
            Console.WriteLine("A")
        Else
            Console.WriteLine("a")
        End If

    End Sub
End Module
