haskell word count v1