Rewrite word count using Data.List.Split.wordsBy and liftM2.