import           Data.ByteString (ByteString)
import qualified Data.ByteString as B
import           Data.Word       (Word8)

main :: IO ()
main = do
  a <- B.head <$> B.getLine
  if a <= (90 :: Word8) then putStrLn "A" else putStrLn "a"
