Ctrl-Dを押すまで結果が出力されないんだが・・・。
mapMを使ってるせいだろうか。

main = do cs <- getContents
　　　　　r <- mapM hoge $ lines cs
　　　　　putStr $ head r

hoge :: String -> IO String
hoge x = return x