toUpper.hs

import Control.DeepSeq
import Data.Char(toUpper)

main = do
    str <- readFile "inout.txt"
    str `deepseq` writeFile "inout.txt" (map toUpper str)
{-
% runghc toUpper.hs
-}