redgrep in Haskell