Haskellでheadコマンド

Haskellで作るものが思いつかないのでheadコマンドを実装してみた。

main = do
	cs <- getContents
	putStr $ unlines $ take 10 $ lines cs