haskell word count v3