Create count.hs