haskell word count v2