word count.hs