program abc171
    use,intrinsic :: iso_fortran_env
    implicit none
    character(1):: r

    read*, r
    if (ichar(r) < ichar('a')) then
        print'(a)', 'A'
        
    else
        print'(a)', 'a'
    end if
end program abc171