-- arch-tag: f7aa1e2e-ffc3-4103-943e-c5d80b92092c

import RRegex.Syntax
import RRegex.Posix
import System
import Array
import RRegex
import RRegex.TH

elems' :: Array Int x -> [x]
elems' a = elems a
main = do
    (p:fl) <- getArgs
    cs <- argContents fl
    --p <- regcomp p regExtended
    let xs = concat cs =~ p
    print (map elems' xs :: [[(String)]])
    --print "foo"

argContents [] = fmap (:[]) getContents
argContents xs = argContents' xs

argContents' [] = return []
argContents' ("-":fl) = do
    c <- getContents
    cs <- argContents' fl
    return (c:cs)
argContents' (f:fl) = do
    c <- readFile f
    cs <- argContents' fl
    return (c:cs)