path: root/capscont.hs

import Data.Char

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