Simplifying some of countprimes.hs