import qualified Data.ByteString.Lazy.Char8 as B
import Data.Char

process contents =
  let lines = B.split '\n' contents
  in B.intercalate (B.singleton '\n') (map process_line lines)

process_line line =
  let words = B.split ' ' line
      new = map capitalize words
      capitalize word = B.cons (toUpper (B.head word)) (B.tail word)
  in B.intercalate (B.singleton ' ') new

main = do
  contents <- B.readFile "lorem.txt"
  B.putStr (process contents)

{-#LANGUAGE MonadComprehensions#-}
import qualified Data.ByteString.Lazy.Char8 as B
import qualified Data.ByteString.Lazy.Builder as B
import Data.Monoid
import Data.Char

process contents  = mconcat [process_line r <> B.charUtf8 '\n' | r <-  B.split '\n' contents]
process_line line = mconcat [capitalize r   <> B.charUtf8 ' '  | r <- B.split ' ' line]
capitalize word   = fromMaybe mempty
                 [B.charUtf8 (toUpper a) <> B.lazyByteString bs | (a,bs) <- B.uncons word]

main = do contents <- B.readFile  "d.txt"
          B.putStrLn $  B.toLazyByteString $ process contents