import Control.Monad
import Data.Char

main = forever $ do
	putStr "Give me some input: "
	1 <- getLine
	putStrLn $ map toUpper 1