Second attempt at haskell word count