>>882 できました！
でも、IOモナドはいまいちピンと来てないです。
あと、全部メモリに読み込んでから処理するのはいいんでしょうか（関数型だとそれがキレイ？）

import System.IO
import System.Environment
main = do args <- getArgs
　　　　　　hFile <- openFile (head args) ReadMode
　　　　　　content <- hGetContents hFile
　　　　　　putStr $ unlines $ map (take 30) $ lines content


最後の行を
　　　　　　mapM (putStrLn . (take 30)) $ lines content
にしてもいけました。

ツッコミお願いします