-- From http://learnyouahaskell.com/input-and-output

import Data.Char

main = do
    contents <- getContents
    putStr (map toUpper contents)