{-# LANGUAGE TypeApplications #-}

import           Control.Monad
import           Control.Applicative
import           Data.List
import           Data.Char
import           Control.Arrow

main = do
  a <- getChar
  putStrLn $ if isLower a then "a" else "A"
