Map reduce implemented in Haskell, trying to exploit parallelism