Haskell Word Count Iteration 1