
Module Module1


    Sub main()
        Dim usr = Console.ReadLine()
        Dim startCode = Asc("A")
        Dim endCode = Asc("Z")
        Dim result = "a"

        If Asc(usr) >= startCode And Asc(usr) <= endCode Then
            result = "A"
        End If
        Console.WriteLine(result)
    End Sub
end Module