正規表現の使い方

正規表現の使い方を知ったので忘れないうちに。
grepっぽいの。

import System.Environment
import Text.Regex

grep ptn ss = [s| s <- ss, matchRegex (mkRegex ptn) s /= Nothing]

main = do
  args <- getArgs
  s    <- getContents
  mapM_ putStrLn $ grep (head args) (lines s)