Update Relative_primality.hs