A bad mapreduce word count with haskell.