import qualified Data.ByteString.Char8 as BS
import Data.Char

readString = map BS.unpack . BS.words

getString = readString <$> BS.getLine

main = do
  [c] <- getString
  putStrLn $ [chr (ord (head c) + 1)]
