hoge.hs

module Main where

import Data.Char

main = interact capitalWords

shortLinesOnly :: String -> String
shortLinesOnly input = 
    let allLines = lines input
        shortLines = filter (\line -> length line < 10) allLines
        result = unlines shortLines
    in result

capitalWords :: String -> String
capitalWords input = 
    let allLines = lines input
        capitalWordLines = map capitalWordLine allLines
        result = unlines capitalWordLines
    in result

capitalWordLine :: String -> String
capitalWordLine line =
    let lineWords = words line
        capitalWords = map capital lineWords
        result = unwords capitalWords
    in result

capital :: String -> String
capital (x:xs) = toUpper x : xs