main = do
  contents <- getContents
  putStrLn $ map toUpper contents
main = do
  contents <- getContents
  putStrLn $ map toUpper contents
main = do
  contents <- getContents
  putStrLn $ map toUpper contents