judgeAlpha :: Char -> Char
judgeAlpha i
  | 'A' <= i && i <= 'Z' = 'A'
  | 'a' <= i && i <= 'z' = 'a'
  | otherwise ='$'

main :: IO ()
main = do
    c <- getChar
    let result = judgeAlpha c
    print result