module Main where
import Data.Char
import qualified Data.Text.Lazy as T
import qualified Data.Text.Lazy.IO as X
convert :: T.Text -> T.Text
convert = T.tail . T.scanl (\a b -> if isSpace a then toUpper b else b) ' '
main = do
name <- X.readFile "file"
X.putStr $ convert name