updated countwords.hs