main =do
  xs<-getLine
  let table = zip (['A'..'Z']++['a'..'z'])(['a'..'z']++['A'..'Z'])
  let henkan c = snd . head . filter (\(a,_)-> c==a) $ table
  putStrLn . map henkan $ xs