Prime1.hs