CountEntries.hs