Simple recursive grep substitute written in Haskell