istream &operator>>(istream &is, rational &r)
	{
	long n, d;
	if (is >> n >> d)
		r = rational(n, d);
	return is;
	}


